Подскажите, решение на паскаль по информатике. даны натуральные числа от 1 до 50. найдите сумму тех, которые делятся на 5 и на 7.решите цикл с предусловием и с постусловием, блок схемы и программы.
213
230
Ответы на вопрос:
Program one; var a,b: integer; begin b: =0; for a: =1 to 50 do if (a mod 5 = 0) and (a mod 7 = 0) then b: =b+a; writeln(b); end.
Популярно: Информатика
-
SuPeRGaMeRDGRST27.12.2022 00:45
-
nikitta7603.11.2021 19:09
-
kivialisalittlee30.05.2023 02:55
-
Сергейtrek905.01.2020 00:10
-
santop12.01.2020 04:32
-
goodman9109.05.2020 19:38
-
rne09.04.2023 16:42
-
Элина201831.05.2021 11:10
-
keshatroy86e709.07.2020 12:09
-
Awesome718.03.2020 10:47