Вычислить значение функции y=x^2, x 1; y=x+8,x 1 только не как в , а как в информатике тема: команда - id352752920220805 от Bonta 05.08.2022 09:15

Question

Информатика: Вычислить значение функции y=x^2, x 1; y=x+8,x 1 только не как в , а как в информатике тема: команда ветвления

Bonta · Accepted Answer

var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.

Вычислить значение функции y=x^2, x< 1; y=x+8,x> 1 только не как в , а как в информатике тема: команда ветвления

MOGZ ответил