Какова скорость оптоволоконного кабеля в Мбит/сек?
а)1024
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.
Рисунок 2, так как в других схемах перевозок между станциями нет (например, CD)
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.
да
всё так установиш потом и всё там будем игры в центре маилру и там установиш зайдёш и играй :)