Регистрация
NDKinel
30.09.2022 15:22
Информатика
Есть ответ 👍

Stepik 2.1 шаг2 Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти целых чисел опре­де­ля­ет количество чисел, кратных 6.

Количество чисел не пре­вы­ша­ет 1000. Введённые числа по мо­ду­лю не пре­вы­ша­ют 30 000.

Формат входных данных

Про­грам­ма по­лу­ча­ет на вход целые числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в последовательность).
Формат выходных данных

Про­грам­ма долж­на вы­ве­сти количество чисел, кратных 6.

НА ЯЗЫКЕ ПИТОН​

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

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

samirsamir21ozrrps
samirsamir21ozrrps
4,6(81 оценок)
While a> 0 do begin q: =a mod 10; b: =b*10+q; a: =a div 10; end; этот фрагмент формирует число, обратное заданному числу а, это число в конце будет находится в ячейке b. для примера рассмотрим короткое число. пусть а=123123> 0 поэтому все команды будут выполняться: q: =a mod 10; остаток от деления  123 на 10:   q=3  b: =b*10+q;     записываем ее в b   b=0*10+3=3 (вот поэтому сначала b должен быть 0) a: =a div 10;   откидываем от а последний разряд: а=12 (берем целую часть деления 123  на 10) идем в начало цикла 12> 0 поэтому все команды будут выполняться: q: =a mod 10; остаток от деления  12 на 10:   q=2 b: =b*10+q;     записываем ее в b   b=3*10+2=32 a: =a div 10;   откидываем от а последний разряд: а=1 (берем целую часть деления 12     на 10) идем в начало цикла 1> 0 поэтому все команды будут выполняться: q: =a mod 10; остаток от деления  1 на 10:   q=1 b: =b*10+q;     записываем ее в b   b=32*10+1=321 a: =a div 10;   откидываем от а последний разряд: а=0 (берем целую часть деления 1     на 10) идем в начало цикла. условие 0> 0 не выполняется, переходим к после цикла. а в b находится число, перевернутое по отношению к исходному.

Популярно: Информатика