Вычислить сумму 10...

Тема в разделе "Информатика", создана пользователем SAgent-RAF-, 4 мар 2010.

  1. SAgent-RAF-

    SAgent-RAF- New Member

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

    marya00 New Member

    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.
     
    marya00, 4 мар 2010
    #2

Поделиться этой страницей

Наша группа