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

Ответы (1)

Обидиенс 13.11.2025 2

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ