Решите пожалуйста,по Паскалю:
Вводится два целых числа,если они равны пишется - это квадрат ,если не равны - это прямоугольник.И в конце вводится площадь(S) фигуры равна.

1

Ответы и объяснения

2013-12-13T11:19:57+00:00
Var a,b:integer;
begin
readln(a);
readln(b);
if a=b then writeln('Это квадрат')
else writeln('Это прямоугольник');
writeln('Площадь фигуры равна ',a*b);
end.
спасибо реально спас чувак:)
Надеюсь ты поставишь мне лучший ответ ;)