Из условия следует, что на одной странице
символа, а раз так, в тексте
символа. Следовательно, текст будет весить
бит, или 56320 байт, или 55 КиБ:)
Var a, b, c, s: real;
begin
write('Введите a, b >>');
readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c = ', c);
s:=a*b/2;
writeln('s = ', s);
<span>end.</span>
0 т.к
For i:= 1 to 1 do оператор (от 1 до 1 - 0 действий)
(ну лично, я так думаю, так что я не уверенна , что этот ответ верный)
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто