vinnipushochek654
Опубликовано 6 лет назад по предмету Информатика от vinnipushochek654


даны три числа возвести в квадрат те из них значения которых отрицательны

  1. Ответ
    Ответ дан antosha96

    PROGRAM first;VAR i,a,b:integer;BEGIN cls; read(a,b,i);  if a<0 then write(sqr(a));

      if b<0 then write(sqr(b));

      if i<0 then write(sqr(i))END.

  2. Ответ
    Ответ дан ali07

    program xxx;  var a,b, c : integer;begin

      writeln('Введите 3 числа-');

     read(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('ответ:');

      write(a, b, c);

      readlnend.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц