Нарисуете блок-схему заданы длины треугольник a,b,c. определить является ли треугольник равносторонним.

Question

Информатика: Нарисуете блок-схему заданы длины треугольник a,b,c. определить является ли треугольник равносторонним.

аннасукманова020508 · Accepted Answer

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)
  then
Begin
  a:=a+2;
   b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
   end
else
  if (a>0) and (b<0)
  then
writeln('a*b = ',a*b)
else
   if (a<0) and (b>0)
    then
    writeln('b-a = ', b-a)

else writeln('Ни одно условие не выполняется');

readln;
end.

MOGZ ответил