Var a,ae: real; n,i: integer; begin writeln('введи начальный рост'); readln(a); writeln('введи кол-во месяцев'); readln(n); writeln('введи прирост в месац в %'); readln(ae); ae: =ae/100; for i: = 1 to n do a: =a*(1+ae); writeln(a); readln end.
Marianna45
26.09.2022
1)program qq; const n=(количество чисел в массиве); var a: array[1..n] of integer; i, s: integer; begin for i: =1 to n do readln(a[i]); s=0; for i: =0 to n do if (a[i]> 9) and (a[i]< 100) and (a[i]mod2=0) then s: =s+a[i]; writeln(s); end.2) program qq1; const n=(количество чисел в массиве); var a: array[1..n] of integer; i, k: integer; begin for i: =1 to n do readln(a[i]); k: =0; for i: =0 to n do if (a[i]mod10=3) and (a[i]< 100) and (a[i]> 9) then k: =k+1; writeln(k); end.
Belokonev286
26.09.2022
Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какова будет высота растения через х месяцев (6), если за месяц прирост составляет а% (5% начальный рост – у см (20) . решение по турбо паскалю.