Определить, встречается ли в ведённом числе
хотя бы одна цифра неравная трём (написать программу на паскале)
счастье101
1
23.04.2020 18:33
2
Другие вопросы по теме Информатика
Королина2022
07.04.2021 17:12
Danil7070
07.04.2021 17:13
kkmla123
07.04.2021 17:14
мюсьера
07.04.2021 17:14
yasuga
07.04.2021 17:15
AndreyVisaGold
23.05.2019 20:52
SawBilly
23.05.2019 20:57
dkcmvmcmf
23.05.2019 22:00
Elizabeth191102
21.05.2019 14:52
moonlight121
21.05.2019 16:00
Популярные вопросы
- Используя информацию из обоих текстои свое собственное мнение, папишите эссе-аргументацио...
1 - Найдите сумму первых членов арифметической прогрессии, в которой a1=16, d=4...
3 - B) На что расходуется количество теплоты, переданное системе в тепловых процессах?...
2 - В) Запишите следующие химические реакциHNO3 + Cu(OH)2 =HNO3 + Na2SiO3...
2 - Руthon, который находит сумму чисел между I и 100 с цикла whileпиши в программе:...
1 - Сколько тонн воды должен ежемесячно получать завод для приготовления 1000 т 4%-ного...
2 - Всем привет мне, сделайте проект по энергетике России тема(Ветренная энергия)...
3 - Казах тили 5 сынып 3 токсан бжб...
3 - Задание No 5 ( ) первого туриста на 1 км/ч больше скорости второго турнета, поэтому...
2 - 3.Запишите в виде неравенства и в виде числового промежутка изображенное на координатной...
2
var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
Объяснение:
Если одна цифра больше 3, но меньше 8
надеюсь это то, что вы имели ввиду.