Соч по и информатики за 1 четверть 8 класса​

ответ на картинке

Объяснение:

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.