FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Для решения этой задачи перепишем условие задачи следующим образом:
a:=a2, b:=b2, c:=c2, если a b c
b:=a, c:=a, если a>b>c
a:=-a, b:=-b, c:=-c, в остальных случаях
Program Example3;
Var
a, b, c : integer;
Begin
writeln(‘Введите числа a, b, c’);
readln(a,b,c);
if (a<=b) and (b<=c)
then
begin
a:=sqr(a); b:=sqr(b); c:=sqr(c);
end
else
if (a>b) and (b>c)
then
begin
b:=a; c:=a;
end
else
begin
a:=-a; b:=-b; c:=-c;
end
writeln(a,b,c);
readln;
End.