кто может сделать.
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.
Объяснение:
вроде бы все ❤❤❤❤❤❤❤❤❤❤❤❤
1)Sum=30
2)var
a, b,Sum, m:integer;
Begin
Readln(m);
a:=1;b:=0;
While a<m do
begin
Sum:=a+b;
b:=b+2;
end;
Write('Summa ravna:',Sum);
Readln ;
End.
3) выведеться 160
Объяснение:
Я смог