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.  

Answer 2

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.