1. Информатика
  2. Дано тризначне число. Чи

Дано тризначне число. Чи входить в нього цифра 4

Søphia Søphia    3   11.05.2020 10:40    0

Ответы
лина593 лина593  11.05.2020 11:30

var n:integer;

begin readln(n); writeln((n div 10=4)or(n div 10 mod 10=4)or(n mod 10=4)); readln end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Karumi1 Karumi1  11.05.2020 11:30

ш мен

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
картерк картерк  18.08.2019 14:30
Вкниге на одной странице помещается k строк. таким образом, на 1-й странице печатаются строки с 1-й по k-ю, на второй — с (k+1)-й по (2∙k)-ю и т.д. напишите программу, которая...
odyvanchik22 odyvanchik22  18.08.2019 14:30
Написать программу паскаль, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла , а вывод - (в скобках указана размерность массива): 1.заменить...
Haroojul Haroojul  18.08.2019 14:30
Дан массив : -5 3 -2 6 1 найти сумму положительных элементов массива ( pascal abc)...
митцухиро митцухиро  05.08.2019 13:10
Разобраться примерами: 22510 перевести в 10-ую систему, 100011101 в 2 первести в двоичную, 1010101+1111001 и cdlxii в двоичную систему. с подробным решением...
sss126 sss126  05.08.2019 11:43
Путем тождественных преобразований определить наборы при которых функция равна 1 f=x1*(not x2)+(not x1)*x3...
Nastya45t7 Nastya45t7  05.08.2019 11:50
Всубд являются важнейшим компонентом сбд, так как обеспечивают интерфейс пользователей разных категорий с сбд выберите один ответ: a. языковые средства b. программное обеспечение...
Wulfmax Wulfmax  31.03.2021 15:50
(5. Crnagitb npoCKT anମ no6yaoBM ୮papika byHKYii y =-7*x + 100. BMKOpMCTOByOM yed tpadik, p03B’ମKIT Ha6nMKeHO piBhମHHମ -7*x + 100 = 0. 36epekite CKhagehMпроект у вашій папці у...
Ьвот Ьвот  18.09.2019 18:00
Составить программу на паскале для вычисления произведения a и b , чтобы она не могла пользоваться командой умножения , a и b натуральные числа...
jahongir21 jahongir21  18.09.2019 18:00
Определите значение переменной а после исполнения алгоритма: составьте трассировочную таблицу. пример 1: b: =3 a: = 18 + b * 12 b: = 18 + a / 6 a: = a * 5 / b пример 2: a: =-5;...
ИльяК2806 ИльяК2806  18.09.2019 18:00
Определить результат s=0 for k=6 to 12 do s= s+5 writeln(s)...

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