Вводится натуральное число. если введенное число < 10 или > 99, то выводится на экран "no", иначе, если сумма цифр выведенного числа > 10 и < 20, то выводится на экран "yes", иначе "lock". для нахождения суммы цифр натурального числа, нужно это число разбить на цифры с операций div и mod. написать программу в паскаль.

Ответы

aida04gmailcom 04.10.2020 09:49

Var s,n:integer;beginreadln(n);if (n < 10) or (n > 99) then writeln('NO') elsewhile n<>0 do begins:=s+n mod 10;n:= n div 10;end;if (s>10) and (s< 20) thenwriteln('YES') elsewriteln('LOCK');end.

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

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

XMuhamedKinggX 22.06.2019 08:20

Павел говорит правду только один день в неделю.какой это день, если известно следущее: 1.однажды он сказал - я лгу по понедельникам и вторникам. 2.на следующий день он сказал - сегодня...

marga23042002 15.06.2019 16:00

Расширение файла, как правило, характеризует: 1. время создания файла; 2. объем файла; 3. место, занимаемое файлом на диске; 4. тип информации, содержащейся в файле; установите соответствие...

vasakaktakovlwla 15.06.2019 16:00

Сформировать условие запроса к бд «подписка», при выполнении которого на экран будут выведены сведения о подписчиках соколове, федорове и яковлеве (в условии запроса не должно использоваться...

Mabmbj 15.06.2019 16:00

Вмаркированном списке для обозначения элемента списка используются: а)латинские буквы; б) буквы; 3)римские цифры; 4)графические значки !...

Рита496 10.06.2021 09:31

1. Чем отличается тип запись от других структурированных типов? 2. Могут ли поля записи быть одного и того же типа? 3. Как обратиться к отдельному полю записи?...

jartan 10.06.2021 09:14

Написать программу вычисления объема параллелепипеда. Ниже приведен вид экрана во время выполнения программы,рекомендуется (данные, вводимые пользователем, выделены полужирным шрифтом).Вычисления...

ikasatkina2008 04.10.2019 07:30

(pascal) - найти количество отрицательных элементов одномерного- динамического массива а[n] состоящего из элементов целого типа....

25durak 04.10.2019 07:30

Дан массив, содержащий 20 неотрицательных целых чисел. необходимо найти в этом массиве количество таких элементов, которые равны среднему арифметическому двух элементов, расположенных...

jroslov 12.12.2019 22:03

Уисполнителя альфа две команды которым присвоены номера 1. прибавь 1 2. умножь на b (b-неизвестное натуральное число; b больше или равно 2) выполняя первую из них, альфа увеличивает...

fsb001 12.12.2019 22:04

2032 перевидите в двоичную систему счисления...

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