Дана последовательность натуральных чисел, завершающаяся числом 0. определите, сколько в последовательности чисел 7. пример: входные данные 1 7 7 9 1 0 правильный ответ 2
179
340
Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1627 begin write(readseqintegerwhile(x-> x< > 0).where(t-> t=7).; end.
Program n1; uses crt; var s,i: integer; begin clrscr; writeln('введите последовательность. для остановки введите 0 '); repeat readln(i); if (i mod 7=0)or(i mod 10=0) then s: =s+i; until i=0; writeln('сумма =',s); readln end.
Цветы: одуванчики, орхидеи, розы, ромашки, тюльпаны, кактусы. насекомые: жуки, пчелы, осы, гусеницы, червяк
Популярно: Информатика
-
Vladarmani27.03.2023 15:48
-
Мария2004100702.09.2021 08:54
-
SaBzZiRo19.10.2022 12:39
-
Kxmm14.03.2022 19:52
-
alinamalina3754407.02.2022 14:44
-
aska31120320.10.2020 10:41
-
aru160810.07.2020 02:35
-
Irakli200712.01.2023 06:07
-
leo0000027.05.2023 17:07
-
veronikamantul02.06.2020 14:57