На паскале 1.найти сумму первых 10 натуральных нечетных чисел. 2.найти произведение натуральных чисел прекратить подсчет при вводе 1.
142
393
Ответы на вопрос:
Var a,b,c,d: integer; begin c: =1; b: =0; while a< > 1 do begin readln(a); if a mod 2 < > 0 then begin b: =b+1; if b< =10 then c: =c+a; end; c: =c*a; end; writeln(b,' ',c); end.
45312 , т.к.| - значит "или", а & - обозначает "и". при запросе с "или" у нас выйдет больше значений
Популярно: Информатика
-
lord5001.01.2020 16:10
-
Kетушка922.08.2022 20:24
-
masha245022.12.2020 22:07
-
Yfnfif261728.08.2021 16:56
-
ldlopirdlidnsp01mup24.03.2021 20:38
-
МААклерша29.09.2021 08:03
-
АндрейXXXМ27.02.2022 13:21
-
nadyam198221.01.2023 23:30
-
romawylka27.11.2021 01:00
-
Alikman12314.10.2022 19:38