В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
elvinaaminova2004
elvinaaminova2004
23.07.2020 18:05 •  Информатика

Определить значение переменной s после выполнения следующего оператора: s: =1; for i: =2 to 4 do s: =s+i

Показать ответ
Ответ:
polavskaya
polavskaya
18.03.2022 18:13

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.

0,0(0 оценок)
Ответ:
guldanaramazan
guldanaramazan
12.04.2021 14:25

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота