Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
0667543784u76ju
05.02.2023 04:18 •
Информатика
Дано целое число а. если его значение а< > 0,то необходимо уменьшить его на 4. написать программу для решения этой .
Показать ответ
Ответ:
urbutite71
23.06.2020 19:17
Uses crt;
var a:integer;
begin
readln(a);
if a<>0 then a:=a-4;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sisake
19.05.2023 18:38
с информатикой, даю Получить шестнадцатеричную форму внутреннего представления числа в формате с плавающей точкой в 4-х байтовой ячейке. 26.28125 5. По шестнадцатеричной форме...
Nikikikikikikita
31.03.2021 07:13
Как нарисовать слона или любого животного в программе кумир (робот)...
ViktoriaDog2006
26.01.2023 16:16
заполнить табличку по информатике...
vlad1458
07.02.2020 02:29
НА КАРТИНКЕ ФУЛ Перечислите наиболее распространенные физические топлогии локальных вычислительных сетей. Придумайте различ-ные соединения 10 компьютеров в компьютеромклассе...
vladazimenko15
10.08.2022 12:04
2Dмен3D графикасында жұмыс жасайтын қандай басқа бағдарламалар бар...
SofiDu
13.07.2021 23:40
Представьте в восьмиразрядном формате прямые коды десятичных чисел: 1) 64; 2) 58; 3) 72; 4) -96....
YAMAYKA123
18.03.2021 17:10
Какие признаки объекта «театр» будут существенными при создании его модели с точки зрения: 1) строительной компании, занимающейся возведением здания театра; 2) режиссёра, готовящего...
Ильир
25.01.2022 21:04
Жас маман пәтер мәселесін қалай шешеді?...
Sr529
25.10.2021 20:39
3. Укажите функцию, график которой изображён на рисунке:...
aydansuper12
13.03.2021 12:22
1. Историк назвал эпоху Великого переселения народов временем, когда «римляне, становившиеся варварами, и варвары, становившиеся римляна- ми, в какой-то период застыли, взирая...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
readln(a);
if a<>0 then a:=a-4;
writeln(a);
end.