Question

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

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.

Answer 2

Блин, второй не добавил...
Var x:integer;
Begin
write('x=');
readln(x);
if (x mod 2)=0 then writeln('Четное');
else writeln('Нечетное');
readln;
End.