zdv686857
?>

Создайте алгоритм, блок схему и программу нахождение площади прямоугольного треугольника s=axb

Информатика

Ответы

smileystyle

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.

akopovarch

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Создайте алгоритм, блок схему и программу нахождение площади прямоугольного треугольника s=axb
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

magichands68
proea
yuip2008
Lilykl
Филиппович_Николаевич
shilinmikhaillg
banketvoshod
Viktorovna1012
elenaftdv7
Анастасия Елена
Исмагилова_Саният
sastakhova
Galina
Iselickaya1890
ainud