1. S = 4950
program z1;
var i,S:integer;
begin
S:=0;
i:=1;
while i<100 do
begin
S:=S+i;
i:=i+1
end;
writeln(S)
end.
2. S = 914,5
program z2;
var i,S:real;
begin
S:=0;
i:=1;
while i<=30 do
begin
S:=S+i;
i:=i+0.5
end;
writeln(S)
end.
3. P = 10321920
program z3;
var i,P:integer;
begin
P:=1;
for i:=2 to 16 do if i mod 2 = 0 then P:=P*i;
writeln(P)
end.
Объяснение:
1. Переменные целые, задаем начальное значение переменных, цикл пока: считаем сумму, увеличиваем переменную на 1, вывод.
2. Переменные вещественные, задаем начальное значение переменных, цикл пока: считаем сумму, увеличиваем переменную на 0,5, вывод.
3. Переменные целые, задаем начальное значение переменной, цикл для: если переменная-счётчик соответствует условию, то считаем произведение, переменная-счётчик автоматически увеличивается на 1, вывод.
1097 Кбайт = 1097*1024 байт = 1097*1024*8 бит.
Количество символов в сообщении = 1097*1024*8 / 6 ≈ 1497770