Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.