Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Ozerck2002
27.05.2023 23:49 •
Информатика
Дано целое число а. если значение а> 0,то необходимо увеличить его на 4. написать программу для решения этой .
Ответ:
vkakochka
23.06.2020 19:08
Uses crt;
var a:integer;
begin
readln(a);
if a>0 then a:=a+4;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dashad27
25.03.2020 17:03
с информатикой нужно записать ответы,...
YAMAHAv
02.12.2021 20:15
Вспомните произведение Александра Сергеевича Пушкина «Сказка о царе Салтане». Что послужило каналом связи при передаче письма царя Салтана к его жене. Кто явился...
AnyaFilenkova
26.08.2021 06:58
Здраствуйте решить задание по информатике. Не понимаю в чём ошибка. def check(summa): while summa != 0 : if summa = 8000: print( Сумма ниже среднего. ) elif summa...
DIANA89320
21.09.2020 04:25
Напечатайте программу для паскаля) напечатать минимальное нечетное число, большее 200, которое нацедил делится на 17...
Dhffhjh
22.04.2021 19:23
Подскажите формулу в эксель для 10 столбца...
Jihye11
18.02.2021 02:49
Подскажите формулу в excel для 10 столбца...
Nazar07072004
17.10.2020 23:37
Програмирование в python ввести три целых числа, найти максимальное из них. пример: введите три целых числа: 1 5 4 максимальное число 5 n2 ввести пять целых чисел,...
lollilol798655799086
03.11.2021 02:22
Всаду росло 3 дерева, посадили еще 7 деревьев, после чего их стало 12. как такое может быть?...
Yskakova206
12.03.2020 18:25
по Информатике. Создайте сферу с программы SketchUp. Определите последовательность команд в этой сфере...
dogs91
25.04.2023 21:26
Два угла треугольника равны 98 и 12 градусов. найдите третий угол...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:integer;
begin
readln(a);
if a>0 then a:=a+4;
writeln(a);
end.