Найти площать и...

Тема в разделе "Информатика", создана пользователем IraS, 18 мар 2010.

  1. IraS

    IraS New Member

    Найти площать и периметр квадрата. Вывести 1, если в сумме площать и периметр превышают 50 и вывести 0, если сумма мешьше 50. Сторону квадрата ввестисамому.
     
    IraS, 18 мар 2010
    #1
  2. b.m.c.p.

    b.m.c.p. New Member

    var a,s:integer;
    BEGIN
      read(a);
      s:= a*a +4*a;
      if s >50 then writeln("1")
      else writeln("0");
    END.
     
    b.m.c.p., 18 мар 2010
    #2

Поделиться этой страницей

Наша группа