Question

ввести 10 чисел проверить делится ли каждое число на 3 если делится то вывести число без изменения в противном случае вывести число умножив его на 2

Answer 1

Ответ:

Объяснение:

var  

i, k, n, sum: Integer;

begin

for i := 1 to 10 do

begin

   

readln(k);

if (k mod 3 = 0) then

writeln(k)

else  

writeln(k*2)

end;

end.