Кто-нибудь может привести любой пример расчета кратчайших путей прокладки оптоволоконной сети(это кабели, по которым проходит интернет, телевидение, связь) сети?
в лесу, в саванне или даже в вашем саду — живые существа непрестанно «разговаривают» друг с другом. В книге «Язык животных» говорится: «Живые организмы задействуют все органы чувств, а также всевозможные позы и движения, посылая и получая сигналы — кто-то едва уловимые, а кто-то и весьма явные, как, например, скунс в момент испуга. Они издают запахи, пищат, гогочут, поют и чирикают; обмениваются электрическими и световыми сигналами, меняют окраску, „танцуют“ или даже топчут и трясут находящуюся под ними поверхность» («The Language of Animals»). Что же они хотят этим сказать?
Uses crt; var a,b,c,x,max,min,sum,pr: integer; begin write('Введите число: '); readln(x); a:= x div 100; b:= x div 10 mod 10; c:= x mod 10; sum:=a+b+c; pr:=a*b*c; if a>b then begin min:=b; max:=a; end else begin max:=b; min:=a; end; if min>c then min:=c; if max<c then max:=c; writeln('Сумма цифр числа: ',sum); writeln('Произведение цифр числа: ',pr); writeln('Максимальная цифра: ',max); writeln('Минимальная цифра: ',min); end.
var a,b,c,x,max,min,sum,pr: integer;
begin
write('Введите число: ');
readln(x);
a:= x div 100;
b:= x div 10 mod 10;
c:= x mod 10;
sum:=a+b+c;
pr:=a*b*c;
if a>b then begin
min:=b;
max:=a;
end
else begin
max:=b;
min:=a;
end;
if min>c then min:=c;
if max<c then max:=c;
writeln('Сумма цифр числа: ',sum);
writeln('Произведение цифр числа: ',pr);
writeln('Максимальная цифра: ',max);
writeln('Минимальная цифра: ',min);
end.