Ответ:
№2 - ответ 11
Объяснение:
3 - это кол-во клеток сверху и снизу
5 - это кол-во клеток посередине
P=3+5+3=11
Ответ:
k = int(1)
n = int()
for i in range(8):
k *= 3
n += 3
print('Через ',n,' годин(и)- ',k,' клітин')
x = int(input())
s = int(1)
h = int()
while x>0:
x -= s
s += 1
h += 1
print(h)
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы интервала: '); Read(a,b);
if a>b then Swap(a,b); // страховка от злобных буратинок
var k:=Range(a,b).Where(m->sqr(sin(m))+cos(m*m)<0).Count;
Writeln('На интервале найдено отрицательных значений- ',k)
end.
<u>Пример</u>
Введите границы интервала: -3 10
На интервале найдено отрицательных значений- 4
Var
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do s:=s+i/10;
Writeln(s)
end.
<u>Результат</u>
5.5