Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.

Program Demofor1;

Var S, P, I: integer;

Begin

For I: = ... to ... do Begin Writeln ('Введите число') ;

(P) ; S:=S + ...;

End;

Writeln (' Сумма равна', ...) ;

End.

Question

Информатика

Лия

26 ноября, 00:02

Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.

Program Demofor1;

Var S, P, I: integer;

Begin

For I: = ... to ... do Begin Writeln ('Введите число') ;

(P) ; S:=S + ...;

End;

Writeln (' Сумма равна', ...) ;

End.

+3

Ответы (1)

Знаете ответ на вопрос?

Тонюся · Answer 1

Program Demofor1;

Var S, P, I: integer; Begin

For I: = 0 to 9 do

Begin

Writeln ('Введите число') ;

readln (p) ;

S:=S+p; End;

Writeln (' Сумма = ', s) ;

End.

Вычислить сумму 10 натуральных чисел, вводимых с клавиатуры.Program Demofor1;Var S, P, I: integer;BeginFor I: = ... to ... do Begin Writeln ('Введите число') ;(P) ; S:=S + ...;End;Writeln (' Сумма равна', ...) ;End.