1.каков будет рост ребенка через год, если за месяц он подрастает на 2% по сравнению с предыдущим. рост в начале года 120 см. 2.в течение недели мама ежедневно ходила на рынок и тратила на 5 рублей больше, чем в предыдущий. написать программу, подсчитать расход за неделю, если в первый день она потратила 100 р. паскаль
291
374
Ответы на вопрос:
Var i: integer; r: real; begin r: =120; for i: =1 to 12 do r: =r+r*0.02; writeln(r: 3: 2); end. var a,i: integer; begin for i: =1 to 7 do a: =a+5; writeln(a); end.
Var var p, x: real; begin p: =120; while p< =120 do begin p: =p+0.02*p; x: =x+1; end; write('ребёнок подрастёт за: ',x,' ','месяцев'); end.
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin for var i: =100 to 999 do begin var (flag,j,r): =(true,2,round(sqrt(; while flag and (j< =r) do if i mod j = 0 then flag: =false else j+=1; if flag then print(i) end end.
Популярно: Информатика
-
Доминика67155421.03.2023 04:11
-
4iterok21119.03.2022 22:52
-
Лилиана200125610.03.2023 20:52
-
ghromovrostisl2229.04.2020 13:51
-
varsockaya13.12.2020 07:05
-
MsMerenberg8621.08.2022 07:34
-
dkusnarev9801.04.2021 23:50
-
muxametzhanovad19.08.2020 09:15
-
СофияПодставкина01.12.2020 19:58
-
Rustem111208.02.2022 10:01