Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
AshesSpy
05.02.2023 04:18 •
Информатика
Дано целое число а. если значение а> 0,то необходимо увеличить его на 4. написать программу для решения этой .
Показать ответ
Ответ:
alyabevan02001
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 оценок)
Популярные вопросы: Информатика
sait14
21.08.2020 03:26
Возможности и достоинства MS Excel в создании БД...
kudryashovayantemik
14.04.2023 03:13
На какой вид относиться этот инструмент?...
marta12t
08.08.2021 03:11
Скажите , как сделать такие треугольники с учётом, что они все равносторонние...
Цыпленочка
03.01.2020 02:09
Опишите последовательность действий создания нового проекта...
staslukutin
03.05.2023 22:50
Политику ивана i калиты характеризует 1) союз с православной церковью 2)внешняя покорность ордынским ханам 3)заимствование западных обычаев и порядков 4)стремление...
Polina212
03.05.2023 22:50
Каких самых больших по величине территории стран не оказалось в списке самых больших по численности населения? подскажите....
и5п5п
03.05.2023 22:50
Краткое содержание а. чехов толстый и тонкий...
katyarakushina03
03.05.2023 22:50
Найдите в 1-м действии комедии д.фонвизина недоросль сбп. выпишите их и объясните постановку знаков препинания. прочитайте отрывок из романа м. булгакова «белая...
kira757
03.05.2023 22:50
Всем в кратце краткое содержание бажова голубая змейка для читательского дневника...
lineage29201682
03.05.2023 22:50
Если пробегать 3000м за 9 мин на стадионе где круг составляет 400м, то получается дистанция 7,5 кругов. с каким временем нужно пробегать 1 круг, что бы уложиться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
readln(a);
if a>0 then a:=a+4;
writeln(a);
end.