3. Разобраться в решении задачи. Записать условие задачи. Заполнить раздел описания переменных с указанием типа и
назначения каждой переменной.
Var
Begin
Sum:=0; x:=0;
While Sum<10 do begin
Sum:=Sum+x;
X:=x+1;
End;
Writeln(‘Sum=’,Sum);
End
назначения каждой переменной.
Var
Begin
Sum:=0; x:=0;
While Sum<10 do begin
Sum:=Sum+x;
X:=x+1;
End;
Writeln(‘Sum=’,Sum);
End
More Questions From This User See All
Answers & Comments
Ответ:
Найти сумму первых 4-х натуральных чисел.
Var
X,sum:byte;
Или
Var
X,sum:word;
Или (это, скорее всего ожидаемый ответ)
Var
X,sum:integer;
X - переменная для очередного натурального числа
Sum - переменная для пошагового суммирования
Объяснение: