Написать блок схему и программу которая запрашивает ввод 2-х чисел .К большему +1 ,а из меньшего -1.
Program Shema1;
uses crt;
var a, b, min, max: real;
begin
clrscr;
write(Vvedite a= );readln(a);
write(Vvedite b= );readln(b);
if a>b then max:=a+1 else max:=a;
if b>a then min:=b-1 else min:=b;
writeln(max+1= , max:4:3);
writeln(min-1= , min:4:3);
readln
end.
Оцени ответ
