Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
HaGiNg
15.06.2021 11:23 •
Информатика
Дано целое число.если оно является кратным 3,то прибавить к нему 1,в проломанном случае не изменять его. вывести полученное число. блок схема
Ответ:
МОЗГ1987
24.12.2019 14:03
ответ: var a: integer;
begin
readln (a);
if (a> 0) then
begin
a: =a+1;
writeln (a);
end
else
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artembebko666
21.01.2021 17:05
Как вы считаете, можно ли обойтись линейными алгоритмами в любой ?...
Lichnosti
21.01.2021 17:05
Чертёжнику был дан для исполнения следующий алгоритм: команда 1 повтори 5 раз сместиться на (-2; -1) сместиться на (2; 1) конец какой должна быть команда 1, чтобы чертёжник...
adinakuba
30.06.2021 11:55
Впаскале решить (программу написать) 1)найти сумму элементов от а до б 2)вывести все элементы от а до б при любых значениях а и б (целых)...
ficatucivi
30.06.2021 11:55
Информационное сообщение объёмом 1.5 кбайт содержит 3072 символа. сколько символов содержит алфавит, при которого было записано это сообщение?...
lol1039
19.09.2022 05:03
1. в ящике лежат 36 красных и несколько зеленых яблок. сообщение из ящика достали зеленое яблоко несет 2 бита информации .сколько яблок в ящике? 2.в концертном зале 270...
Volodyaaaa
09.12.2022 03:08
Этап подготовки документа на компьютере, при котором вы просматриваете его, исправляете обнаруженные ошибки и вносите необходимые изменения....
master204
17.12.2020 18:10
Решите уравнение: 3g/5-4g^2=0 или...
Ramble2285
17.12.2020 18:10
РЕШЕНИЕ ПИСАТЬ , А НЕ ВЫБРАТЬ РЕШЕНИЕ ПИСАТЬ , А НЕ ВЫБРАТЬ ) >...
Kolian5617
17.12.2020 18:10
Что произошло когда ветерок стряхнул иней с кустов и деревьев?...
VasyaHrenov
17.12.2020 18:10
15.81 : (24 - 23.66) - 37.5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
ответ: var a: integer;
begin
readln (a);
if (a> 0) then
begin
a: =a+1;
writeln (a);
end
else
writeln (a);
end.