Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
<span>END.</span>
<span><span><span>
Прием (ввод) информации
</span><span>
</span></span><span><span>
<span>^ Запоминание информации</span>
</span><span>
</span></span><span><span>
Процесс мышления
</span><span>
</span></span><span>
<span>^ <span>Передача (вывод) информации</span></span></span></span>
Var
xl,xr,h,x:real;
i:integer;
begin
Write('Введите левую и правую границы изменения х, затем шаг: ');
Read(xl,xr,h);
for i:=1 to Trunc((xr-xl)/h)+1 do begin
x:=xl+(i-1)*h;
Writeln(x:0:4,' ',abs(sin(x))+cos(abs(x)))
end
end.
<u>Пример</u>
Введите левую и правую границы изменения х, затем шаг: 1.2 3 0.18
1.2000 1.2943968404439
1.3800 1.17149436167019
1.5600 1.01073783728823
1.7400 0.817321730886476
1.9200 0.597495822534427
2.1000 0.358363262049017
2.2800 0.107651047653376
2.4600 -0.146539653537401
2.6400 -0.395995275405633
2.8200 -0.632655254626053
3.0000 -0.848872488540578
Var
a, b: integer;
begin
write('граница а? ');
readln(a);
write('граница б? ');
readln(b);
for var i:=a to b do
writeln(i, ': ', sqr (i), ' ', i*i*i);
end.