Ввести 10 чисел проверить делится ли каждое число - вопрос №12397843103 от ДашаЛис56 21.12.2022 22:12

Question

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

ДашаЛис56 · 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....