var a,b,c:integer;
begin
a := 1;
b := 2;
c := 3;
if a < b + c then begin
writeln('OK #1');
if b < a + c then begin
writeln('OK #2');
if b < a + b then
writeln('OK #3')
else
writeln('Нет решения #3');
end
writeln('Нет решения #2');
writeln('Нет решения #1');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c:integer;
begin
a := 1;
b := 2;
c := 3;
if a < b + c then begin
writeln('OK #1');
if b < a + c then begin
writeln('OK #2');
if b < a + b then
writeln('OK #3')
else
writeln('Нет решения #3');
end
else
writeln('Нет решения #2');
end
else
writeln('Нет решения #1');
end.