Dianafym 28 ноября 2019 в 05:07
4) Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без изменения.
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.
Компьютеры и вычисления
423
0
Для комментирования необходимо зарегистрироваться на сайте