Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.
Ответ:
10 байт
Объяснение:
Если для хранения 1 символа используется 1 байт, то для слова «немедленно» потребуется 10 байт.
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
158кб=158*2^13 бит
1кб=2^13 бит