Ввести 10 чисел проверить делится ли каждое число - вопрос №10312398243 от amir139 02.09.2020 21:11

Question

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

amir139 · 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....