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

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

Question

Фирс

26 апреля, 14:48

+5

Ответы (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.