<span>var i: integer;
begin
// С помощью for
for i := 1 to 5 do
write(i,' ');
writeln;
for i := 5 downto 1 do
write(i,' ');
writeln;
writeln;
// С помощью while
i := 1;
while i<=5 do
begin
write(i,' ');
i := i + 1;
end;
writeln;
i := 5;
while i>=1 do
begin
write(i,' ');
i := i - 1;
end;
writeln;
writeln;
// С помощью repeat
i := 1;
repeat
write(i,' ');
i := i + 1;
until i>5;
writeln;
i := 5;
repeat
write(i,' ');
i := i - 1;
until i<1;
writeln;
end.</span>Вывод последовательности 1 3 5 7 9<span>var i,x: integer;
begin
// С помощью for и промежуточной переменной
x := 1;
for i := 1 to 5 do
begin
write(x,' ');
x := x + 2;
end;
writeln;
// С помощью for без промежуточной переменной
for i := 1 to 5 do
write(2*i-1,' ');
writeln;
// С помощью while
x := 1;
while x<10 do
begin
write(x,' ');
x := x + 2;
end;
writeln;
// С помощью repeat
x := 1;
repeat
write(x,' ');
x := x + 2;
until x>=10;
end.</span>Сумма и произведение введенных чиселКод на Pascal<span>var
i: integer;
s,p: real;
x: real;
begin
writeln('Введите 10 чисел: ');
s := 0;
p := 1;
for i := 1 to 10 do
begin
read(x);
s := s + x;
p := p * x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.</span>Код на PascalABC.NET<span>var
s,p: real;
begin
writeln('Введите 10 чисел: ');
s := 0;
p := 1;
for var i := 1 to 10 do
begin
var x: integer;
read(x);
s += x;
p *= x;
end;
writeln('Сумма введенных чисел = ',s);
writeln('Произведение введенных чисел = ',p);
end.</span>Вычисление n!Код на Pascal<span>var
n,fact: integer;
i: integer;
begin
write('Введите n (n<=13): ');
readln(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
writeln(n,'! = ',fact);
end.</span>Код на PascalABC.NET<span>var n: integer;
begin
write('Введите n (n<=13): ');
readln(n);
var fact := 1;
for var i := 2 to n do
fact *= i;
writeln(n,'! = ',fact);
end.</span><span>Вычисление An</span>Код на Pascal<span>var
n,i: integer;
a,p: real;
begin
write('Введите a,n: ');
readln(a,n);
p := 1;
for i := 1 to n do
p := p * a;
writeln(a,' в степени ',n,' = ',p);
end.</span>Код на PascalABC.NET<span><span>var
n: integer;
a: real;
begin
write('Введите a,n: ');
readln(a,n);
var p := 1.0;
for var i := 1 to n do
p *= a;
writelnFormat('{0} в степени {1} = {2}',a,n,p);
end.</span><span> </span></span>
1.
У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом:
<span><span>Идет
направо </span>– песнь заводит,</span><span><span>Налево - сказку говорит</span>,</span>
Там чудеса: там леший бродит,
<span>Русалка на ветвях сидит… </span><span><span> </span>(А.С.Пушкин)</span> 2. Колобок 3. Репка 4. Не помню названия, но "...налево пойдешь - коня потеряешь и т. д."
1) Var i,n:integer; begin n:=0; i:=0; while i<>100 do begin i:=i+1; n:=n+i; end; writeln(n); <span>end. </span>2) Var i,n:integer; begin n:=0; i:=0; repeat I:=i+1; n:=n+i; until i=100; writeln(n); end. <span>3) Var i,n:integer; begin n:=0; i:=0; For i:=0 to 100 do n:=n+i; writeln(n); <span>end.</span></span>