Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Nik10234
10.06.2022 13:58 •
Информатика
Дано число. если оно чётное, то увеличить его на 1, в противном случае увеличить его на 2. , напишите программу по .в фри паскаль.
Ответ:
Katya124354
08.06.2020 18:06
var a: integer;
begin
readln(a);
if (a mod 2=0) then a:=a+1 else a:=a+2;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KoCmiK11
30.01.2021 15:15
Ввести с клавиатуры 10 пар чисел. сравнить числа в каждой паре и напечатать большие из них...
Odagio
21.08.2022 22:52
Какова роль процессора персонального компьютера в обработке информации?...
nari06
21.08.2022 22:52
Написать программу на нахождение суммы и произведения трех чисел. программа должна быть одна/...
mmmmmvbbbbb
25.08.2020 08:58
составить блок схему по : найти среднее арифметическое натуральных чисел от 1 до n кратных 5 (не массив)...
fatyaa22
25.08.2020 08:58
Составить программу определяющую сколько букв с в данном слове...
AlexRico
25.08.2020 08:58
Найди закономерность и продолжи их 1 0 2 1 3 2 4 3 5 4 ?...
Angelamur
25.08.2020 08:58
Производилась четырёхканальная (квадро) звукозапись с частотой дискретизации 24 кгц и 16-битным разрешением. в результате был получен файл размером 48 мбайт, сжатие данных не...
Ембергенова
25.08.2020 08:58
1. что такое носитель? а) плотность хранения данных ; б) материальная среда, используемая для записи и хранения информации; в) сложный информационный процесс, включающий в себя...
FaizTimYr
25.08.2020 08:58
Составить программу определяющую с колько букв с в данном слове...
nastyadolbakp0837c
25.08.2020 08:58
Дискретизация звука (преобразование из аналоговой формы в цифровую) производится при : а)аналого-цифрового преобразователя б)цифро-аналогового преобразователя в)микрофона г)акустических...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a: integer;
begin
readln(a);
if (a mod 2=0) then a:=a+1 else a:=a+2;
writeln(a);
end.