//Вычислите сумму S=m(m+1)(m+2)...n
PROGRAM B13;
VAR n,m:byte;
j:byte;
prd:real;
BEGIN
writeln('Вычисление суммы S=m(m+1)(m+2)...');
write('Введите n (1 write('Введите m: '); readln(m);
writeln('');
prd:=1;
for j:=0 to n-1 do begin
write('(', (m+j),')*' );
prd:=prd * (m+j);
end;
writeln('');
writeln('Ответ: ',prd);
END.
Первая запись
28 мбайт файл стерео / 2 (терь он моно) * 2 / 3.5 = 8 мбайт стал весить файл.
var a,i:integer;
begin
a:=1;
for i:=1 to 5 do
begin
if a mod 2 <> 0 then write(a,' ');
a:=a+1;
end;
end.
(а+б)(а-б)=а•а-а•б+б•а-б•б=а\2(это степень)-аб+ба-б\2
Var
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln('До:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln('После:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;end.
<span>ПРИМЕР РАБОТЫ:
До:
5 5 2
8 6 2
После:
8 6 2
5 5 2
</span>