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

  • Найди сумму положительных нечётных чисел из промежутка от a до b , делящихся без остатка на 3

Ответы 2

  • var

      a, b, i, Summ:integer;

    begin

      Summ := 0;

      write('a = '); readln(a);

      write('b = '); readln(b);

      for i := a to b do

        if (i > 0) and (i mod 3 = 0) then

          inc(Summ, i);

      writeln('Summ = ', Summ);

      readln;

    end.

     

     

    • Автор:

      edgar40
    • 6 лет назад
    • 0
  • Program prom;Var a, b, i, s: integer;BeginReadln (a, b);For i:= a to b doIf (i > 0) and (i mod 3 = 0) and (i mod 2 = 1) thens:=s+i;Writeln (s);Readln;End.

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

Еще вопросы

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

Войти через Google

 или

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

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

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