Ввести 10 чисел проверить делится ли каждое число - вопрос №12398745103 от divergent01 16.01.2020 15:25

Question

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

divergent01 · Answer

Объяснение: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....