Для последующих чисел от -15 до 15, все чётные числа возвести в квадрат, нечётные числа заменить на 0. Составить программу.

1

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

2013-05-20T12:36:27+00:00

Var i,ch:integer;

Begin

For i:=-15 to 15 do 

Begin 

Ch:=i;

If ch mod 2 = 0 then begin

Ch:=sqr(ch); writeln(ch, ' '); end

Else begin ch:=0;

Writeln(ch, ' ');end;

 

Readln;

End;