Вывести все натуральные трехзначные числа, в которых есть заданная цифра. На паскале.

Question

Информатика

Андроника

17 марта, 06:56

Вывести все натуральные трехзначные числа, в которых есть заданная цифра. На паскале.

+4

Ответы (1)

Знаете ответ?

Сеитибрагим · Answer 1

Var A, I, O: Integer;

Begin

ReadLn (A) ;

For I:=100 to 999 do Begin

If I div 100 = A Then

O:=O+1;

if (I div 10) - (I div 100) = A then

O:=O+1;

If I - ((I div 10) * 10) = A Then

O:=O+1;

End;

WriteLn (O) ;

End.