Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на один символ отводится 1 байт 30 строк по 70 символов - 2100 символов 5 страниц-это 10500 символов так что ответ 10500 байт
если положить, что вода замерзает при нуле градусов, то:
program ice;
var temp : integer;
begin
writeln('введите температуру');
read(temp);
if temp > 0 then write ('вода не замерзнет')
else write('вода замерзнет');
end.
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
if a> b then max: = a
else max: =b;
end;
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
writeln(x1);
var a: array [1..8,1..5]of integer;
s,i,k: integer;
randomize;
for i: = 1 to 8 do begin
for k: = 1 to 5 do begin
a[i,k]: = random(20)-10;
write(a[i,k]: 3,' ');
if a[i,k] mod 2 = 0 then s: =s+a[i,k];
writeln;
writeln('s=',s);
Популярные вопросы