Question

Ввести два числа A и B.положительные числа уменьшить в 1,5 раза отрицательные -увеличить на 5. Составить алгоритм в виде блок-схемы и программу.

Answer 1

var A,B:real; 
begin
writeln('Введите числа А и В');Readln(A,B);
if A < 0 then A:=A +5;if B < 0 then B:= B +5; 
if A > 0 then A:= A /1.5;if B > 0 then B:= B /1.5; 
write('A =',A,' B=',B);end.