1. дано объем текста =3,5 Кб=3584 байта
в компьютерный тексте 1 символ кодируется 1 байтом
значит в тексте 3584 символа
6 вариантов букета) Пометь как лучший ответ, пожалуйста)
var
C:integer;
begin
C := 0;
while C <= 400 do
begin
writeln('C = ', C, '; F = ', 1.8 * C + 32);
C := C + 5;
end;
readln;
end.
Var x,y:integer;
begin
writeln('x, y:');
readln(x,y);
writeln(x,'^2 = ',x*x);
writeln(y,'^3 = ',y*y*y);
if x*x<y*y*y then writeln(x*x) else writeln(y*y*y);
end.
Пример:
x, y:
7 4
7^2 = 49
4^3 = 64
49