Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Tilinika
28.08.2021 00:55 •
Информатика
Дано целое число а. если значение а = 0, то необходимо увеличить его на 3, иначе присвоить а значение, равное 0. составьте на паскале программу для решения этой . программа должна иметь дружественный интерфейс
Ответ:
qofepvcqj
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 оценок)
Популярные вопросы: Информатика
bdoyan1994
01.03.2022 18:21
Запишите следующие выражение на языке Python...
Angelinamskul
12.10.2021 05:27
Сонғы шартты цикл дегеніміз не...
Владислав15351
25.07.2020 06:12
ДІ INISONLINEМЕКТЕР,NazarbayevIntellectualSchoolsEАнимация в презентации. Урок 1Изучи предложенное изображение слайда и определиобъекты, для которых настроена анимация.2Изучи...
Айымгул1
06.07.2020 16:07
Когда начали создавать человекоподобных роботов? * 350 году до нашей эры1770 году1737 году1920 году...
AlyonaAtlanta
31.01.2022 17:12
Складіть програму знаходження суми парних числа ,n через цикл....
edgarotlichnik55
08.11.2021 05:21
8. Укажите, что будет выведено на экране в результате выполнения фрагмента программы: print ( ответ: , a+b), если а=5, b=3*ответ:, a+b8ответ: 8 ответ: , a+b...
geralis728p0bgjl
17.12.2020 08:19
Надо сделать быстро. Укажите правильный порядок представленного алгоритма. [1] программа порядок Вывести на экран результат Ввести дробное число В Ввести целое число А 1 Найти...
оля27102000
09.03.2022 03:21
если будут правильные ответы....
slv13
16.11.2021 14:04
45//7= канша болат и 23//10= канша болат...
elvira125
19.07.2020 14:45
ЗАДАНИЕ №2 ВРЕМЯ НА ВЫПОЛНЕНИЕ:00:00 это сор по информатике за 5 класс ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.