Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Лисана539
09.12.2022 06:31 •
Информатика
Не сложно, но . написать программу для pascal. дано целое число, если оно является положительным, то прибавь к нему 5; в противном случае не изменять его. вывести полученное число.
Ответ:
LysaPysa
01.10.2020 03:02
begin
read(n);
if n>0 then n:=n+5 else n:=n;
write(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nlapenko
07.03.2020 03:11
Написать функцию, которая возвращает максимальное из двух целых чисел, полученных в качестве аргумента...
MashaBelous
07.03.2020 03:11
Решить по информатике язык python - ветвления 1. определите значение переменной «a» после выполнения фрагмента программы: a = 10 if a 5: a = 5 2. определите значение...
sahka03
18.06.2020 05:30
Определите начальную команду настройки панорамы виртуального тура...
OniRitsu
21.09.2020 08:19
Вопрос на фотографии внутри...
Акося3557
27.03.2023 09:44
Установи соответствие между форматами файлов и редакторами, с которых можно их открыть и редактировать. Количество соединений: 4 .cdr о универсальный векторный формат,...
likiad123
30.12.2022 02:46
Памагит білім лэнд если будет не правильно меня папа убьёт...
dakuevasaida
29.05.2020 10:32
Никита и мария вместе целый час решали заочный тур олимпиады нти. за это время каждый из них вдохнул 510 л воздуха, содержащего 21% кислорода. мария усиленно решала ,...
alinka12152002
04.01.2022 10:10
1100011001100 в десятичную форму. 20...
rival6
27.03.2021 05:42
Какие операции и эффекты позволяют улучшить качество аудиозаписи? и тд...
iwaly2009
05.12.2021 17:34
Сколько бит информации содержит сообщение объемом 0,25 кбит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(n);
if n>0 then n:=n+5 else n:=n;
write(n);
end.