В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
FrostMorne
FrostMorne
07.06.2020 13:24 •  Информатика

Дано целое число. если оно отрицательное, то вывести на экран его модуль, иначе напечатать его удвоенное значение. , надо❤️

Показать ответ
Ответ:
nastyakholod92
nastyakholod92
05.10.2020 17:44
Var A:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.
0,0(0 оценок)
Ответ:
Ксеньд0ль
Ксеньд0ль
05.10.2020 17:44
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
Код Pascal1   2   3   4   5   6   7   8   9   10   11  var N: integer; begin writeln('Ведите целое число:'); readln(N); if N > 0 then N := N + 1 { <== Увеличиваем на 1 } else N := N - 2; { <== Уменьшаем N на 2 } writeln('Результат: ', N); readln end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота