Найти площать и периметр квадрата. Вывести 1, если в сумме площать и периметр превышают 50 и вывести 0, если сумма мешьше 50. Сторону квадрата ввести самому.

Как решение будет выглядеть в программе Паскаль???

1

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

2012-03-01T22:47:39+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a,s:integer;
BEGIN
  read(a);
  s:= a*a +4*a;
  if s >50 then writeln("1")
  else writeln("0");
END.