Ответы на вопрос:
1.) var s, i: integer; begin for i: =-30 to 40 do if i mod 2 < > 0 then s: =s+i; writeln(s); end.2.)var s, i: integer; beginfor i: =-50 to 120 doif i mod 9 = 0 then s: =s+1; writeln(s); end.3.)var p, i: integer; beginfor i: =-10 to 20 dobeginif i=1 then p: =1; if i mod 11 = 0 then p: =p*i; end; writeln(p); end.4.)var n, d, i, p: integer; beginp: =1; write('введите n> > '); readln(n); for i: =1 to n dobeginwrite('введите ', i, '-ое число> > '); readln(d); p: =p*d; end; writeln(p); end.
Популярно: Информатика
-
ирбиз23.06.2020 11:30
-
Пр0ст0Чел0век03.03.2021 03:35
-
thienla027.02.2020 09:33
-
sogianachkebia25.09.2021 23:51
-
74563218911.12.2020 18:37
-
dikinova2017ozio8q20.05.2021 04:19
-
помогитееееее322.09.2021 21:51
-
thero1007.07.2021 08:38
-
даша360210.04.2020 22:59
-
utopia216.05.2022 15:10