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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы