1. Информатика
  2. Составить программу по : дано

Составить программу по : дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"

arinas23 arinas23    1   14.06.2019 06:10    0

Ответы
ksenia0070 ksenia0070  10.07.2020 22:48
Var x, l: integer;
begin
  readln(x);
  l := Trunc(Log10(Abs(x)));
  if l = 2 then
    writeln (x)
  else 
    writeln('число не трехзначное');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pruzhinskiy01 pruzhinskiy01  16.11.2020 11:11
Помагите на информатике 1)Заполните таблицу необходимой информацией. 2)Написать формулу в ячейке D2 3)​...
martynenko5 martynenko5  16.11.2020 11:12
2. В каком варианте указано правильно как опубликовать массив? 1) var A: array [1..10] of integer2) for I in range (10): if A[i]3) S=0 for i in range (10): S+=array[i]4)...
nastyagosteva nastyagosteva  16.11.2020 11:12
Задание 1 Дан логотип. Выбери правильный ответ. 7.PNG графический редактор текстовой редактор электронная таблица редактор презентаций Задание 2 Выбери ответы. 1)...
lbogdan2 lbogdan2  16.11.2020 11:12
Определите существует ли такая таблица ​истинности...
derek56 derek56  13.12.2021 06:19
17) Учитель проводил диктант по теме «Определения . Каждый из учеников - Коля, Серёжа, Ваня, Толя, Надя - ошибся в одном из пяти заданий диктанта, причём все они ошиблись...
caca2386p00xcz caca2386p00xcz  13.12.2021 06:21
Трое друзей, спорили о результатах олимпиады по информатике. Мнения Ивана: «Вот увидите, Школа №3 не станет первой. Школа №2 будет первой». Мнение Николая: «Победителем...
Знання6666 Знання6666  13.12.2021 06:29
4. Значение, которое находится в ячейке В5 после нажатия клавиши Enter?...
Ира21fu Ира21fu  13.12.2021 06:32
Выполняем в тетради 1. Напишите в тетрадях порядок создания диаграммы. 2. 3. ... 2. Напишите в тетрадях описание элементов диаграммы: 1. ... 2. 2 6000 1 7 7 5000 4000...
raysat2 raysat2  29.04.2021 16:28
Первая кнопка группы элементов Ссылки – * Предметный указатель Сноски Список литературы Оглавление...
Министрелия2222 Министрелия2222  16.04.2020 14:57
Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln ( sum=...

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