Фото покажи ! Не можем заделать ! И если меня щас забанят мне пойте уже привыкла и достало
Имеем дело с арифметической прогрессией, где
а(1)=15
d=2
В N-й день улитка проползёт
a(N)= a(1)+d(N-1)=
=15+2(N-1)=13+2N
Через N дней улитка проползет в общей сложности
S(N)= a(1)+a(2)+..+a(N)
Сумма арифметической прогрессии равна
S(N)= ½(а(1)+a(N))*N=
=½(15+13+2N)*N=
=(14+N)*N
Через N дней
yлитка проползет
(14N+N²)см
Писал с учётом очистки экрана. Тобишь модуль Uses Crt, если не проходили, то лучше удали эту строчку и "ClrScr".
Program G;
Uses Crt;
Const N=10;
Var i, count: integer; mass: array [1..N] of integer;
Begin
ClrSCr;
Count:=0;
For i:=1 to N do
Begin
Mass[i]:=Random(31)-15;
Write(Mass[i]:4);
End;
Writeln;
For i:=1 to N do
If mass[i]>0 then inc(count);
If count=0 then writeln('В массиве нету положительных чисел.')
Else writeln('Количество положительных чисел в массиве: ', count);
Readln;
<span> End.</span>
Является дискретным изображением
Var
a:real;
function sqrsqr(a:real):real;
begin
sqrsqr:=a*a*a;
end;
begin
read(a);
writeln(sqrsqr(a));
end.
//А вообще, в степени возводит функция power()