Написать программу которая выведет на экран все 3 х значные числа, содержащие цифры 7 и 9 и найдет их произведение

Question

Информатика

Витяша

28 июля, 03:00

Написать программу которая выведет на экран все 3 х значные числа, содержащие цифры 7 и 9 и найдет их произведение

+3

Ответы (1)

Знаете ответ на вопрос?

Фелиция · Answer 1

var

a:string;

i, j:integer;

check:boolean;

begin

readln (a) ;

for i:=1 to length (a) do

begin

if (a[i]='7') then

for j:=1 to length (a) do

if (a[j]='9') then check:=true;

end;

if (check) then writeln (a) ;

writeln;

end.