"Беларусь - край озер, <span>лесов </span>и рек"
Код Pascal
1 var a:integer;
2 begin
3 readln(a);
4 writeln(a*2*2*2*2*2*2)
5 end.
<span>Существует несколько типов сетей, и локальная сеть - лишь одна из них. Локальная сеть представляет собой, по сути, сеть, используемую в одном здании или отдельном помещении, таком как квартира, для обеспечения взаимодействия используемых в них компьютеров и программ. Локальные сети, расположенные в разных зданиях, могут быть соединены между собой с помощью спутниковых каналов связи или волоконно-оптических сетей, что позволяет создать глобальную сеть, т.е. сеть, включающую в себя несколько локальных сетей.</span>
Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
Program prog;
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
x:=2*sqr(a);
y:=3*b;
writeln;
writeln ('X = ', x:0:3, ' Y = ', y:0:3);
if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.