Ответы на вопрос:
Program zadanie1 (input, output); var a, b: integer; s: real; begin a: =1; s: =0; b: =0; while a < > 0 do begin read (a); s: =s+a; b: =b+1; end; s: =s/(b-1); writeln (s); end. program zadanie2 (input, output); var a, p, b, c, n, s: integer; begin a: =1; b: =0; c: =0; s: =0; read (n); repeat c: =a+b; b: =a; a: =c; s: =s+c; if s < n then p: =s; until s > n; writeln (p); end. program zadanie3 (input, output); var n, i: integer; a, b: real; begin read (n); a: =0; for i: =0 to n do begin a: =exp(i*ln(2)); if a < n then b: =a; end; writeln (b); end.
Популярно: Информатика
-
ПаучьяХватка17.08.2022 02:05
-
nasty78ss09.03.2023 11:44
-
kirillkislov09.11.2021 11:53
-
Gangstar777437g25.04.2020 03:10
-
kapital0202p0cd2e16.01.2020 17:03
-
иска457812.06.2020 11:29
-
Sindex21224.11.2020 14:31
-
fasthelp127.01.2022 01:06
-
БИОЛОГИЯ120422.04.2021 01:43
-
правелостиля28.05.2020 22:14