4) Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без...

Question

4) Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без изменения.

Answer 1

Vari:integer;a: array [1..3] of integer;beginfor i:= 1 to 3 do readln (a[i]);  if a[i] mod 2 = 1 then a[i]:= a[i]*a[i]*a[i];end.  

Comments

var
i:integer;
a: array [1..3] of integer;
begin
for i:= 1 to 3 do readln (a[i]);
if a[i] mod 2 = 1 then a[i]:= a[i]*a[i]*a[i];
end.