Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Bog1209
28.06.2022 20:41 •
Информатика
как сделать (в packal abc) - task('if3')! хоть всё!
Показать ответ
Ответ:
Anna18181818181818
07.10.2020 12:31
Var n:integer;
begin
readln(n);
if n > 0 then n:=n-8
else if n < 0 then n:=n+6
else n:=10;
writeln(n);
end.
Пример:
-5
1
0,0
(0 оценок)
Ответ:
GenaTurboKrytt
07.10.2020 12:31
Var n:integer; begin readln(n); if n > 0 then write(n-8); if n < 0 then write(n+6); if n = 0 then write(10); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Мурад1001
23.01.2020 08:07
Как нарисовать букву и в паскале например uses crt; var i,j: byte; begin clrscr; for i: =1 to 7 do begin gotoxy(1,i); write( * ); gotoxy(11,i); write( * ); end; gotoxy(2,4); for...
den111111111113
23.01.2020 08:07
Даны 4 числа, найти наименьшее из них.(язык паскаль)...
hatikomurka
19.07.2022 19:19
Прочитать с экрана 30 имен, сосчитать сколько среди них имен петя . замечание-использовать только 3 переменных. abc a-текущ имя(строковый) b-переменная(кол-во имен петя) с-переменная(цель-сколько...
mstatyankasor
19.07.2022 19:19
Впоездке пятеро друзей – антон, борис, вадим, дима и гриша – знакомились с попутчицей. они предложили ей отгадать их фамилии, причем каждый из них высказал одно истинное и одно...
hjghn
19.07.2022 19:19
Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. с++...
ttadikina
12.05.2022 09:11
Определи истинность составного высказывания. A = «Монитор – устройство вывода информации». B = «Интерактивная доска – устройство хранения информации». C = «Микрофон – устройство...
Leerikaa
18.05.2021 19:52
Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран. *...
Viky2016
13.04.2023 14:41
5. Для построения диаграмм необходимы следующие данные: 1. Ряд данных и категории; 2. Ряд данных; 3. Категории; 4. Нет правильного ответа;...
хелпмиплиз666
29.12.2021 03:12
Укажите достоинства электронных книг: * -Высокая стоимость -Изменение размеров шрифта -Переходы по гиперссылкам -Компактность хранения -Возможность озвучивать текст -Высокая чувствительность...
1sanita
09.07.2022 07:37
Определите, сколько бит информации понадобится для кодирования цветного изображения размером 46 на 18. Глубина цвета равна 4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
if n > 0 then n:=n-8
else if n < 0 then n:=n+6
else n:=10;
writeln(n);
end.
Пример:
-5
1