Постусловие: вывести те числа в интервале 100 .. 500, которые содержат заданную цифру M - Turbo Pascal
Формулировка задачи:
Из чисел от 100 до 500 вывести те,которые содержат цифру M
M - вводится с клавиатуры
Решение задачи: «Постусловие: вывести те числа в интервале 100 .. 500, которые содержат заданную цифру M»
textual
Листинг программы
program pr; var m,i,j:integer; begin j:=100; i:=500; writeln('Введите число m'); readln(m); repeat if ((i div 100)mod 10=m) or ((i div 10)mod 10=m) or (i mod 10=m)then begin j:=j+1; write(i,' '); end; i:=i+1; until j=500; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д