Даны 4 числа,найти наибольшее,если это число является четным увеличить его в 3 раза,иначе оставить без изменения

torshindanya torshindanya    2   15.08.2019 22:30    0

Ответы
Апофис Апофис  04.10.2020 21:51
//Pascal ABC.Net
Var a:array [1..4] of longint;
Begin
for i:=1 to 4 do
begin
read(a[i]);
if (a[i] mod 2=0) then a[i]*=3;
end;
for i:=1 to 4 do
write(a[i],' ');
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика