РЕШЕНИЯ ТОЖЕ НУЖНЫ,
1. Определите значение переменной S после выполнения фрагмента программы:
i:=2;
S:=2;
while i < 11 do
begin
i:= i + 3;
S:= S + 2 * i;
end;
2. Запишите значение переменной sum после выполнения фрагмента программы:
sum:=2;
for i:= 2 to 4 do sum:= sum + 3* i;
3. Запишите результат выполнения программы:
var p, n: integer;
begin
p:= 2;
for n:= 10 dowto 9 do p:= p * n;
writeln (p);
end