Треугольник со сторонами а, b, с является равносторонним. (программа на Паскаль)

teaonline teaonline    2   16.04.2019 23:00    2

Ответы
EVETS1 EVETS1  16.04.2019 23:00
uses crt;
var a,b,c:integer;
BEGIN
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if (a=b) and (b=c) and (c=a) then
  writeln('Treugolnic RAVNOSTORONNIJ')
    else
  writeln('Treugolnic NE RAVNOSTORONNIJ');
END.
ПОКАЗАТЬ ОТВЕТЫ
Ler4ic004 Ler4ic004  16.04.2019 23:00
program alexq;
uses crt;
var
 a,b,c: real;
begin
 clrscr;
 write('Vvedite A,B,C: ');
 readln(a,b,c);
 if (a=b) and (b=c) then writeln('Treugolnik ravnostoronniy')
 else writeln('Treugolnik ne ravnostoronniy');
 readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы