Составьте циклический алгоритм сложения первых 10 натуральных чисел.Плиз очень надо.
Составьте циклический алгоритм сложения первых 10 натуральных чисел.
Плиз очень надо.
Гость
Ответ(ы) на вопрос:
Гостьprogram zzz;
var a, i, s: integer ;
begin
s:=0;
for i:=1 to 10 do
s:= s + i;
WRITELN (' сумма первых десяти чисел равна ' , s);
end.
Не нашли ответ?
Похожие вопросы