Задать вопрос Регистрация
Помочь другим

  • Найти сумму первых десяти двухзначных чисел, кратных 5. Вывести на экран эти числа и сумму.

Ответы 1

  • Program Summa;

    Uses Crt;

    var i,s:integer;

    begin

          clrscr;

          i:=10;s:=0;

         write('Двухзначные числа кратные 5: '); 

          while(i<=50) do

               begin

                    write(i,'  '); 

     

                    s:=s+i; 

     

                     i:=i+5; 

     

               end;  

     

        writeln;

     

        writeln('Сумма 10 двухзначных чисел кратных 5: ',s);

         readkey;

     

     end.

    • Автор:

      bailey46
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years