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

Question

Информатика

Евдоха

4 мая, 00:28

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

+3

Ответы (1)

Знаете ответ?

Лидуся · Answer 1

Pascal

var max:integer;

var a:array[1 ... 4] of integer;

begin

max:=-100000000;

for var i:=1 to 4 do

readln (A[i]) ;

for var i:=1 to 4 do

if (a[i] > max) then

max:=a[i];

If (max mod 2 = 0) then

max:=max*3;

write (max) ;

end.