Впаскале: ввести целое число и определить, верно ли, что в нём ровно 1 цифра 9. плз!

Ответы

20736 03.10.2020 01:39

Var n,k,i:integer;
begin;
readln(n);
while n>1 do
begin;
if n mod 10=9 then inc(k);
n:=n div 10;
end;
if k=1 then writeln(true) else writeln(false);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

ХОРОШИСТ1234567891 06.10.2019 09:41

Составить таблицу, позволяющую автоматизировано рассчитывать квартплату квартиросъемщиков. расчет квартплаты p осуществляется по формуле: p = k b s, где s - жилая или...

katyademona04 06.10.2019 09:41

Составить прогу в паскале для решения : строитель положил в первый день 100 кирпичей. каждый следующий день он увеличивал количество кирпичей на z процентов от предыдущего...

KatiaSur 06.10.2019 09:41

1. откройте документ paдyгa.rtf из папки заготовки: каждый охотник желает знать, где сидит фазан. 2. вспомните, какая связь между цветами радуги и словами появившейся...

aydana040505 06.10.2019 09:40

По информатике на языке программирования pascal abc. распечатать 1/1 - 1/2 + 1/3 - 1/4 + 1/5 - 1/n2 !...

ayiina264 06.10.2019 09:40

Постройте модель процесса ремонта квартиры (определите для данного : в чем заключается ; кто является субъектом моделирования; что является объектом моделирования; какова...

badmaks00 06.10.2019 09:40

ответить на вопросы. 1)что можно изменить в выбранном объекте: набор свойств,набор методов,значения свойств? 2)какие объекты могут быть использованы при конструировании...

NoName4643 06.10.2019 09:40

Просидает фпс на ноуте. играю 100 фпс и на 10-15 сек просидает до 23 фпс. i7, 16 гг оперативки, 1050 ti...

olga15038 06.10.2019 09:31

Пределите значения переменных после выполнения алгоритмов (mod - это остаток от деления a на b; div - это целая часть от деления a на b. пример решения: а: = 9; b: = а...

hren4 06.10.2019 09:31

((c#))как создать паттерн для n-ное количество объектов (данный пример для одного)? using system; public class a { static a instance = null; public static a ff() { if...

CloseBooks 06.10.2019 09:31

Фруктовый магазин продает яблоки поштучно по 10 руб., груши- по 20руб., апельсины-по 30 руб. впервые два дня недели продано: понедельник- х яблок, у груш, z апельсинов;...

Впаскале: ввести целое число и определить, верно ли, что в нём ровно 1 цифра 9. плз!

Популярные вопросы