Предмет: Информатика,
автор: Анастасия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.
Интересные вопросы
Предмет: Английский язык,
автор: diasbulatov2
Предмет: Русский язык,
автор: nanticoin
Предмет: Английский язык,
автор: kulzhekenova
Предмет: Математика,
автор: Мила11111112
Предмет: Физика,
автор: Аня773