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

2

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

2011-11-09T14:26:53+00:00

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.

  • ali07
  • главный мозг
2011-11-09T21:06:13+00:00

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

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

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);

  readln
end.