Предмет: Информатика,
автор: Анастасия95512
Дано целое число. Если оно отрицательное, то вывести на экран его модуль, иначе напечатать его удвоенное значение.
Пожалуйста, срочно надо❤️
Ответы
Автор ответа:
0
Var A:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.
Похожие вопросы
Предмет: Английский язык,
автор: zitlantag8
Предмет: Литература,
автор: cherksm
Предмет: Математика,
автор: Olyabakulina86
Предмет: Математика,
автор: angelinasluckaya
Предмет: Химия,
автор: skrepka899