Найти все двузначные числа.. - Pascal
Формулировка задачи:
Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 - на 4
Решение задачи: «Найти все двузначные числа..»
textual
Листинг программы
uses crt; var i:integer; begin clrscr; for i:=10 to 99 do begin if ((i*2) mod 10=8) then writeln(i,' zakanchivaetsya na 8'); if ((i*3) mod 10=4) then writeln(i,' zakanchivaetsya na 4'); end; readln; end.