Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gfsfsdcxz
24.10.2021 11:21 •
Информатика
Написать программу которая введенные с клавиатуры отрицательные числа удваивает и прибавляет 5 а положительные оставляет без изменения
Показать ответ
Ответ:
кристина0052368
02.10.2020 00:42
Program zz;
var a:integer;
begin
readln(a);
if a>0 then writeln(a)
else
begin
a:=a*2+5;
writeln(a);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
МилаКу
27.08.2022 16:19
Сформировать и вывести массив из 15 случайных чисел от 1 до 100. определить сумму и произведение всех элементов....
NikishK
27.07.2021 10:48
Составить логические выражения, принимающие истинные значения в случае попадания точки с координатами (x,y)xy в оранжевые области и ложные значения в противном случае. ответ...
darikesa69
14.08.2021 12:15
А: =17; b: =(a div 10)*10; a: =(b*2)+ a div 100; если a b то c: =a-bиначе с: =b-aпеременная с примет значения: а) 50, б) 10, в) 45, г)85. ...
VladGulevevatiy
06.03.2020 07:41
К-тая банка У Никиты есть n банок газировки, каждая из которых имеет свой объём. Известно, что полезнее всего пить газировку, начиная от банок большего объема и переходя...
Анастасия7371
31.10.2020 20:03
Закончи предложение «К системным программам относятся… • Драйвера • Операционные системы • Архиваторы • Антивирусы • …...
diana9996
27.11.2022 03:07
Ввод числа алгоритмаНиже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел x, при вводе которого алгоритм...
НастяandТима
17.11.2022 21:32
Сколько времени потребуется для передачи документа объёмом 4 Мбайт с одного компьютера на другой, если средняя скорость передачи данных по каналу связи составляет 250000...
зара1010101
01.07.2021 17:27
Вычислите значение переменной:...
ivanbudaev1993
19.10.2020 10:50
Уважаемые пользователи можете по Якутскому языку остается 2 часа !...
ГЕОГАФИЯ
23.06.2020 05:13
1. What s wrong with Jack? 1) He has a temperature. 2) He has a headache. 3) He has caught a cold. 2. What did Jack say about his test? 1) It was difficult. 2) It wasn t...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
readln(a);
if a>0 then writeln(a)
else
begin
a:=a*2+5;
writeln(a);
end;
end.