Постусловие: вывести те числа в интервале 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.