Var
n,i,s,k,p:integer;
begin
p:=1;
write('Введите число ');
readln(n);
writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2);
for i:=1 to n do begin
if (i mod 3 = 0) and (i mod 2 = 0) then begin
s:=s+i; k:=k+1;
end;
p:=p*i
end;
writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k);
writeln(' произведение чисел от 1 до ',N,' = ',p);
end.
Тестовое решение:
Введите число 10
среднее арифметическое от 1 до 10 = 5.5
среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6
произведение чисел от 1 до 10 = 3628800
===== PascalABC.NET =====
if z = 0 then
w := ArcSin(2 * x * y) + Exp(2 * x * y);
Редактирование - внос какой либо поправки, форматирование - удаление всех данных с носителя (жёсткого диска и т.д.)
1. Вводим R
2. Находим d по формуле d=2*r
3. Находим длину окружности по формуле l=3.14*2*r
4. Выводим d и l
Вариант2
1. Выводим "R известно?"
2. Вводим "да" / "нет"
3. Если ввели "да" находим d и l, и выводим
4. Если ввели "нет" - ничего не происходит
5. Конец.
Cos2x=sinx-cosx
<span>cos²x-sin²x+(cosx-sinx)=0 </span>
<span>(cosx-sinx)(cosx+sinx)+(cosx-sinx)=0 </span>
<span>(cosx-sinx)(cosx+sinx+1)=0 </span>
<span>cosx=sinx => x=π/4+πn </span>
<span>cosx+sinx=-1 </span>
<span>sin(x+π/4)=-1/√2 </span>
<span>x+π/4=(-1)^(n+1) π/4+πk </span>
<span>x=-π/4+(-1)^(n+1) π/4+πk</span>