Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

2. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

Ответ оставил Гость

Program programma;
Uses crt;

var  i: integer;
     a: array [1..1000] of integer;
Begin clrscr;
for i:=1 to 3 do
    begin
    write(a[,i,]=);
    readln(a[i]);
    end;

    writeln;

for i:=1 to 3 do
    begin
    if a[i]<>0 then
    begin
    if a[i]<0 then a[i]:=(a[i])*(a[i])
    else a[i]:=(sqr(a[i]))*a[i];
    write(a[i],    );
    end
    else
    write(a[i],    );
    end;
End.