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