это соч по информатике a) разность
b)разветляющийся
c)неправильно
Var a,b: integer;
begin
writeln ('Введите два числа');
read(a,b);
if a=b then a:=0
else
begin
a:=-1*a; b:=-1*b;
end;
writeln(a,' ',b);
end.
№1
=ЕСЛИ(И( A2>=160; B2<13);"Принят";"Нет")
№2
3
№3
=$C5*2
Алг
нач
цел a, b, c
ввод a
ввод b
c := a + b
вывод c
кон