Найдите все числа большие 20, меньшие 100, кратные 4 и при делении на пять дающие остаток 4

@ahserj · Регистрация: 14.01.2013

Найдите все числа большие 20, меньшие 100, кратные 4 и при делении на пять дающие остаток 4.

@ermolay · 15.01.2013, 16:29

Pascal

var
  i: byte;
begin
  for i:=21 to 99 do
    if (i mod 4=0)and(i mod 5=4)
    then writeln(i);
  readln;
end.

@ahserj 0 / 0 / 0 Регистрация: 14.01.2013 Сообщений: 11
		1
	Найдите все числа большие 20, меньшие 100, кратные 4 и при делении на пять дающие остаток 4 15.01.2013, 16:05. Показов 1683. Ответов 1 Метки нет (Все метки) Найдите все числа большие 20, меньшие 100, кратные 4 и при делении на пять дающие остаток 4. 0

	15.01.2013, 16:29

Опции темы

Решение