Question

Напишите програвмирования на языке программирования Pascal:
1) Определить является ли треугольник со сторонами a,b,c равносторонним.
2) Даны m и n. Если m≠0, то заменить каждое из чисел большим из них числом, иначе заменить 0.

Answer 1

Var
  a,b,c:real;
begin
  Read(a,b,c);
  if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
  else Writeln('Треугольник не равносторонний')
end.

Пример
15 15.0 15.0000
Треугольник равносторонний

var
  m,n,mx:integer;
begin
  Read(m,n);
  if m>0 then
    if m>n then n:=m else m:=n
  else begin m:=0; n:=0 end;
  Writeln('m=',m,', n=',n)
end.

Пример
7 2
m=7, n=7