1) Проверка условия и ветвление в алгоритме. Напишите программу которая анализирует введённое с клавиатуры число и выдает на экран: а) удвоенное значение числа, если число положительное; б) абсолютное значение числа, если число отрицательное.

2) Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.

Question

Авдоня

12 января, 12:45

+3

Ответы (1)

Знаете ответ на вопрос?

Альба · Answer 1

1)

Var x:integer;

Begin

write ('x=') ;

readln (x) ;

if x>=0 then x:=x*2;

else x:=abs (x) ;

writeln ('Otvet=', x) ;

readln;

End.