Verified answer

Ответ:

1)Program asd;

Var a, b, c, p : integer;

begin

Write ('Введите первую сторону треугольника a: '); readln (a);

Write ('Введите вторую сторону треугольника b: '); readln (b);

write ('Введите третью сторону треугольника c: '); readln (c);

p: = (a+b+c);

Writeln ('Периметр треугольника равен: ', p);

end.

2)

VAR

A, B, C, D:integer;

Begin

WriteLn ('введите числа A, B, C, D) ;

ReadLn (A, B, C, D) ;

if (A=B) and (B=C) and (C=D) then

WriteLn ('все числа равны') ;

else

if (A=B) or (B=C) or (C=D) or (A=D) then

Begin

Write ('только') ;

WritweLn ('два три числа равны') ;

end

else

WriteLn ('все числа разные') ;

end.

Объяснение: