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

  • Напишите пожалуйста программу в паскале, что бы суммировало числа от 1 до 50 которые заканчиваются на три.

Ответы 2

  • var

      i, summ:integer;

    begin

      for i := 1 to 50 do

        if i mod 10 = 3 then

          summ := summ + i;

      writeln('Summ = ', summ);

    end.

  • var

    s,i:integer;

    begin

    for i := 1 to 50 do begin

    if i mod 10 = 3 then

    s := s+i;

    end;

    writeln(s);

    end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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