Question

Определите, что будет выведено в результате работы программы. Запишите условие задачи, для решения которой составлен алгоритм.
var
m: integer;
begin
m:=151;
while (m mod 15<>0) do
m:=m+1;
writeln (‘M= ’, m);
end.​

Answer 1

Ответ:

M= 165

Объяснение:

151 mod 15 = 1

151 + 1 = 152

152 mod 15 = 2

152 + 1 = 153

153 mod 15 = 3

153 + 1 = 154

154 mod 15 = 4

154 + 1 = 155

155 mod 15 =  5

155 + 1 = 156

156 mod 15 = 6

156 + 1 = 157

157 mod 15 = 7

157 + 1 = 158

158 mod 15 = 8

158 + 1 = 159

159 mod 15 = 9

159 + 1 = 160

160 mod 15 = 10

160 + 1 = 161

161 mod 15 = 11

161 + 1 = 162

162 mod 15 = 12

162 + 1 = 163

163 mod 15 = 13

163 + 1 = 164

164 mod 15 = 14

164 + 1 = 165

165 mod 15 = 0