4) Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без изменения.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
