Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
maksim93949262tue
21.03.2021 20:51 •
Информатика
Дано натуральное число n.составьте программу, которая выводит на экран числа следующим образом: 1.n 2.n-1 3.n-2 буду ! : )
Показать ответ
Ответ:
maksimkasuslov1
26.06.2020 08:25
Program Prosto;
Var a1,a2,a3:integer;
Begin
Writeln('Задай число');
Read(a1);
a1:=a1;
a2:=a1-1;
a3:=a2-1;
Write('Первое число равно',a1);
Write('Второе число равно',a2);
Write('Третье число равно',a3);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ccfnwj3662
19.10.2020 01:15
Кто-нибудь знает как решить...
7gekap0bshm
29.10.2021 17:01
Вася любит рыбок. он хочет купить nr рыб. он знает, что для того, чтобы рыбка чувствовала себя комфортно в аквариуме на нее должно приходиться не менее чем v1 литров (т.е....
12346Djigd
10.07.2022 23:24
ответьте правильно! какому типу письменности (буквенно-звуковому, слоговому, идеографическому) относится письменность ,немцев французов,испанцев?...
Keranius
06.02.2020 08:38
Не могу решить... M + 32 * L - K - 2 * T + P = (16) ? M = 25585(10) L = 363352(8) K = 1 0011 1111 0000 1010(2) T = 445707(8) P = BC6E(16)...
Sokolova2327
08.06.2021 13:45
2. Где можно применить движение по квадрату?...
elichev3
03.03.2020 15:15
Решите Задания на фото...
Snake505
12.08.2021 19:23
59.к данным словам 1-й гурппы подберите фразеологизмы-синонимы из2-й гурппы. запишите их парами. 1, обидеться, близка , умный, безразлично, выдуматы, запомнить, голодать, обещать,надоедать,убежать,...
gerasim4uckirip08lfr
12.08.2021 19:23
Соляная кислота реагирует с 1)медью 2) магнием 3) сероводородом 4) оксидом кремния...
leravolk399
12.08.2021 19:23
Текст занимает полных 5 страниц. на каждой странице 50 строк по 60 символов в строке. ответ дайте в кбайтах...
LalkaZEKA
12.08.2021 19:23
Найдите наибольшее целое значение функции у = 4,3cosx...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a1,a2,a3:integer;
Begin
Writeln('Задай число');
Read(a1);
a1:=a1;
a2:=a1-1;
a3:=a2-1;
Write('Первое число равно',a1);
Write('Второе число равно',a2);
Write('Третье число равно',a3);
End.