Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
issirisoyf2q6
11.03.2022 11:32 •
Информатика
Дано целое число а. если значение а> 0,то необходимо увеличить его на 4. написать программу для решения этой .
Ответ:
Anhelodek
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 оценок)
Популярные вопросы: Информатика
Геймеr228
16.04.2022 20:37
8класс. составьте программу вычисления произведения чисел от 1 до 10 1*2*3*4 *10...
dimon4ikk122
07.02.2020 00:01
Сколько килобайт потребуется, чтобы сохранить на диске одну страницу текста, если в одной строке помещается 60 символов, а на странице 40 строк?...
Ruiche
05.12.2021 18:18
Почему возникала потребность в цифровом представлении информации?...
ankaschamina20
20.07.2020 06:03
Program lab1; var x,y: real; begin writeln( введите x ); readln(x); begin if (abs(x) =1) then y: =sqr(x)-1; else if(abs(x) 1) and (abs(x) =2) then y: =2*x-1; else if (abs(x) 2)...
TToMoLLIHuK1
03.05.2023 19:31
Решите : статья, набранная на компьютере, содержит 32 страницы, на каждой странице 40 строк, в каждой строке 48 символов. определить размер статьи в килобайтах в кодировке кои-8,...
СофикаКис
03.02.2023 03:53
1статья набранная на компьютере содержит 32 страницы на каждой странице 40 строк в каждой строке 64 символа определите размер статьи в кодировке кои-8 в который каждый символ кодируется...
abdulismailova2
03.02.2023 03:53
Как можно завершить фразу «когда передаваемые данные разбиваются на пакеты, », чтобы получилось верное утверждение? 1. ускоряется передача данных 2.пакеты одного блока данных могут...
sasavotchel
03.02.2023 03:53
Входные данные : вводится единственое натуральное число n , не превосходящее 100 необходимо ввести вычислительную сумму...
Икари301202
03.02.2023 03:53
Все сови : написать программу котораяопределяет является ли число четнымили его запись окончательно целая 7...
Darya4567
03.02.2023 03:53
Перевести: 245(из 10ичной в двоичную систему счисления) 1026(из 10-ой в двоичную) 3627(из 10-ой в 16-тиричную)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:integer;
begin
readln(a);
if a>0 then a:=a+4;
writeln(a);
end.