найти количество целых положительных чисел, больших 100, наименьших 500, кратных 12

Отыскать количество целых положительных чисел, великих 100, наименьших 500, кратных 12 и кончающихся на 4 или 6

Задать свой вопрос
1 ответ
Var k,i:integer;
begin
k:=0;
for i:=101 to 499 do
 if (i mod 12 = 0)and((i mod 10 = 4)or(i mod 10 = 6))
  then k:=k+1;
writeln('k = ',k);
end.

Итог:
k = 12
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт