Яких значень набудуть змінні a і b після виконання умовних операторів, наведених нижче, для початкових значень a = 3; b = 5? if a > b: a = a+10 else : b = b+10

146

311

Посмотреть ответы 1

Ответы на вопрос:

пятимейкер

Информатика

4,7(81 оценок)

Var n, i, a, k: integer; f: boolean; begin readln(n); for i : = 1 to n do begin a : = i; f : = true; while a > 0 do begin k : = a mod 10; a : = a div 10; if (k = 0) or (i mod k < > 0) then //если в числе есть 0, то считать что на 0 не делится, иначе замените = на < > f : = false; end; if f then write(i, ' '); end; end.