кто может.
1.Определите значение переменной Sum после выполнения фрагмента программы:
i:=0;
Sum:=0;
while i<4 do
begin
i:=i+1;
Sum:= Sum+3*i;
end;
2.Используя цикл while, напишите программу, вычисляющую сумму всех чётных чисел от 1 до введённого целого числа m.
3.Определите, что будет выведено в результате работы программы. Запишите условие задачи, для решения которой составлен алгоритм.
var
m: integer;
begin
m:=154;
while (n mod 16<>0) do
m:=m+1;
writeln (‘M= ’, m);
end.
