Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Данил3472
16.11.2022 19:48 •
Информатика
Дано целое число а. если значение а = 0, то необходимо увеличить его на 3, иначе присвоить а значение, равное 0. составьте на паскале программу для решения этой . программа должна иметь дружественный интерфейс
Ответ:
madama1994
07.10.2020 03:52
Program p17;
var A:integer;
begin
readln (A);
if A=0 then A:=A+3
else if A<>0 then A:=0;
writeln (A);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mishaklibashev
16.02.2023 19:50
Скласти програму, яка визначає, чи є ціле число n, уведене з клавіатури, – простим. за до циклу for c/c++...
avgustreykh14
01.04.2020 05:35
Что такое мощность алфавита ?...
Amilina11
22.08.2021 22:10
Информатика. Сделайте задание на фото...
artemterebenin
29.04.2022 09:48
Количество обменов Определите, сколько обменов сделает алгоритм пузырьковой сортировки по возрастанию для данного массива. Входные данные На первой строке дано число...
Suri31
08.08.2022 11:57
Будь ласка до ть мені,це інформатика,дякую...
ket95651
27.04.2020 18:50
Коэффициенты в схемах реакций: na + cl2=nacl nahco3=na2co3 + co2 + h2o fe + agno3=fe(no3)2 + ag расставьте коэффициенты и определите типы реакций: fe(oh)3 + hcl=feсl3...
uchenica7
27.04.2020 18:50
Тело перемещается по горизонтальной площадке с ускорением 2 м/с в квадрате. чему равна сила тяги, если масса тела 8 кг. а коофициент трения 0.5...
duyquhuseynli11
27.04.2020 18:50
Мне с уравнением : 3 750-(x-218)=1230 и ещё,c.6=67000-7000...
olgaocher
27.04.2020 18:50
Все тела состоят из: 1 минералов 2 природы 3 веществ...
Нвдуооп
27.04.2020 18:50
Верблюдица даёт 7 л молока ежедневно и 12 кг шерсти в год сколько литра молока верблюдица даст за 1 месяц ? за 3 месяца ? сколько кг шерсти в год состригут с 14 верблюдиц?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var A:integer;
begin
readln (A);
if A=0 then A:=A+3
else if A<>0 then A:=0;
writeln (A);
end.