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

  • составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю

Ответы 2

  • var

    i,s:integer;

    begin

    s:=0;

    for i:=20 to 60 do

    if i mod 5 =0 then s:=s+i;

    writeln(s);

    end.

    • Автор:

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

  • var

     i,s:longint;

    begin

     for i:=20 to 60 do if i mod 5=0 then inc(s,i);

    writeln(s);

    end.

     

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

Еще вопросы

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

Войти через Google

 или

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

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

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