даны три действительных...

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

  1. GuitarHero

    GuitarHero New Member

    даны три действительных abc. возвести в квадрат те из них которые не положительные
     
    GuitarHero, 21 фев 2010
    #1
  2. doom1000

    doom1000 New Member

    var
      a, b, c: real;
     
    begin
      writeln('Введите числа a, b, c');
      readln(a, b, c);
      if a <= 0 then a:= sqr(a);
      if b <= 0 then b:= sqr(b);
      if c <= 0 then c:= sqr(c);
      writeln('a = ', a, ', b = ', b, ', c = ', c);
    end.
     
    doom1000, 21 фев 2010
    #2

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

Наша группа