Question

Помогите пожалуйста кто может сделать. Даю 60 баллов

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.​

Answer 1

Объяснение:

вроде бы все ❤❤❤❤❤❤❤❤❤❤❤❤

Answer 2

Ответ:

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

Объяснение:

Я смог помочь!?