Задание:
Найти площать и периметр квадрата. Вывести 1, если в сумме площать и периметр превышают 50 и вывести 0, если сумма мешьше 50. Сторону квадрата ввестисамому.
Решение:
var a,s: integer; BEGIN read (a); s: =a*a+4*a; if s >50 then writeln ("1") else writeln ("0"); END.
Знаете другой ответ?