Напишите программу в ПАСКАЛЕ, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6,нужна правильная программа в ПАСКАЛЕ чтобы работала,если можно прикрепите фото что все работает
186
467
Ответы на вопрос:
Var m: real; k: integer; begin m: =100; k: =0; while m> 80 do begin k: =k+1; m: =m*0.99; end; writeln('k = ',k); end. результат: k = 23
Популярно: Информатика
-
bezrodnayamila26.11.2020 20:26
-
oksanadavidienozexft27.01.2021 12:17
-
Olyecvh14.03.2021 18:49
-
7gklass201727.03.2021 14:16
-
міхан06.04.2020 02:41
-
soffffa079006.09.2022 07:48
-
ismailovu513.02.2021 06:39
-
настюшанастя120029.01.2021 01:37
-
Boom11111111111119.07.2020 19:33
-
Expert22866610.05.2020 10:36