var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Текстовая — передаваемая в виде символов, предназначенных обозначать лексемы языка. (книги)
Числовая — в виде цифр и знаков, обозначающих математические действия. (числа)
Графическая — в виде изображений, предметов, графиков. (рисунки)
Звуковая — устная или в виде записи передача лексем языка аудиальным путём. (звуки)
<span>Смешанная - комбинация нескольких видов информации (фильм например: комбинация графической и звуковой информации) </span>
Максимальная мощность алфавита = 2^5 = 32;
минимальная мощность алфавита = 2^4+1 = 17.
Я в этом плохо что понимаю, так что не знаю какие инструменты. Знаю что пр
Var x,sn,s:real; n,i:integer;
begin
readln(x,n);
s:=0;
sn:=1;
for i:=1 to n do
begin
sn:=sn*sin(x);
s:=s+sn;
end;
writeln('s = ',s:6:4);
end.
Пример:
0.9 5
<span>s = 2.5490</span>