• Посчитать количество чисел, принадлежащих промежутку [a,b] и сумму чисел, стоящих на местах, кратных 3

Ответы 1

  • Program Pr1;uses crt;var a,b,c:integer;Beginclrscr;c:=0;writeln('Vvedite a i b');readln(a,b);while a<=b do begin if a mod 3=0 then c:=c+1; a:=a+1; end;writeln(c);end.

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

Еще вопросы

Войти через Google

или

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

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

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