Поскольку m > n, m уменьшается на n и получаем m = 67.
Этот процесс повторятся, пока выполняется условие m > n, т.е. m последовательно принимает значения 63, 59, 55, ... 11, 7 и 3. Фактически, находится остаток целочисленного деления 71 на 4.
Теперь при m=3, n=4 выполняется условие n > m, и n уменьшается на m.
n = 4 -3 = 1.
Снова выполняется условие m > n, и получаем значения m = 2, а затем 1.
1
Объяснение:
В начале m = 71, n = 71 mod 2 +3 = 1 + 3 = 4.
Далее выполняется цикл.
Пока m <> n
Если n > m то n уменьшить на m
иначе m уменьшить на n
По окончании цикла выводится значение n.
При первом входе в цикл m=71. n=4
Поскольку m > n, m уменьшается на n и получаем m = 67.
Этот процесс повторятся, пока выполняется условие m > n, т.е. m последовательно принимает значения 63, 59, 55, ... 11, 7 и 3. Фактически, находится остаток целочисленного деления 71 на 4.
Теперь при m=3, n=4 выполняется условие n > m, и n уменьшается на m.
n = 4 -3 = 1.
Снова выполняется условие m > n, и получаем значения m = 2, а затем 1.
При m=1 и n =1 цикл завершается.
Будет выведено значение 1.
1. Количество чисел в последовательности вводится пользователем
var n,i,a,k: integer;
begin
write('Введите количество чисел в последовательности ');
readln(n);
for i := 1 to n do
begin
write('Введите число: ');
readln(a);
if a mod 10 = 5 then k:=k+1
end;
writeln('Количество чисел заканчивающихся на 5 равно ',k)
end.
2. Признак окончания последовательности ввод 0 (цикл while)
var a,s:integer;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
if(a mod 4 = 0) and (a mod 10 = 8) then s:=s+a;
write('Введите число: ');
readln(a)
end;
writeln('Сумма чисел кратных 4 и заканчивающихся на 8 равна ',s)
end.
3. Признак окончания последовательности ввод 0 (цикл repeat)
var a,k,s: integer;
begin
repeat
write('Введите число: ');
readln(a);
if a mod 2 = 0 then
begin
k:=k+1;
s:=s+a
end
until a=0;
writeln;
writeln ('Среднее арифметическое четных чисел равно ',s/k)
end.