Написать программу которая выведет на экран все 3х значные числа, содержащие цифры 7 и 9 и найдет их произведение
lskurs
1
19.05.2019 02:10
0
Другие вопросы по теме Информатика
вика6781
23.09.2019 18:00
atanova2861
19.11.2020 17:48
viktoria168
03.07.2019 11:20
devochkaSlava
03.07.2019 11:20
anciferovalex
23.12.2021 03:30
Weirdy
23.12.2021 03:22
cempalov
27.05.2020 15:54
Популярные вопросы
- 1 Mary - send email – at 6 o clock. 2 Tom and James - watch...
2 - Укажи неодушевленое имя существительное лестница,строитель,...
1 - Когда ставится тире ,напишите (пишите что вы помните ,лучший...
3 - 3. Fill in the gaps with the correct form of the Present Indefinite...
3 - 176. Спишите,вставьтепропущенныебуквы.Определерловиявыбораниннвсуффиксахприлагательныхсоставецио...ый,отечестве...ый,стекля...ый,песе...ый,серебря..ый,Журавлиный,соловьи...ый,кури...ый,лимо...ый,траесловосочетания...
1 - у деякому місяці було чотири понеділки, п ять четверга і чотири...
3 - ответьте на вопросы очень надо...
1 - 8. Для чего применяется Маркер заполнения?...
2 - Письменно ответить на вопрос, какими путями шло распространение...
2 - Используя дополнительные источники информации, составьте пример...
3
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.