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

Program Demofor1;

Var S, P, I: integer;

Begin

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

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

End;

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

End.

Question

Информатика

Иустин

29 июня, 16:19

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

Program Demofor1;

Var S, P, I: integer;

Begin

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

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

End;

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

End.

+2

Ответы (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.

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

Program Demofor1;

Var S, P, I: integer;

Begin

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

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

End;

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

End.