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.
Поделитесь своими знаниями, ответьте на вопрос:
Даны три числа возвести в квадрат те из них значения которых отрицательны
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.