Question

3. Разобраться в решении задачи. Записать условие задачи. Заполнить раздел описания переменных с указанием типа и
назначения каждой переменной.
Var
Begin
Sum:=0; x:=0;
While Sum<10 do begin
Sum:=Sum+x;
X:=x+1;
End;
Writeln(‘Sum=’,Sum);
End

Answer 1

Ответ:

Найти сумму первых 4-х натуральных чисел.

Var

X,sum:byte;

Или

Var

X,sum:word;

Или (это, скорее всего ожидаемый ответ)

Var

X,sum:integer;

X - переменная для очередного натурального числа

Sum - переменная для пошагового суммирования

Объяснение: