program raf105;
var a:array[1..30,1..20] of string;
i,j,o:integer;
s:string;
begin
for i:=1 to 30 do
for j:=1 to 20 do
a[i,j]:= '';
writeln('Вводите слова по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(s);
if s <> '0'
then
o:= o+1;
for i:=1 to length(s) do
a[o,i]:= s[i];
end;
until s = '0';
writeln;
writeln('Вывод:');
for i:=1 to o do
if a[i,j] = 'а'
then a[i,j]:= 'о';
if j <> 1
a[i,1]:= a[i,1] + a[i,j];
writeln(a[i,1]);
end.
Объяснение:
1. Числа Фибоначчи
function Fibon (n:integer):longint;
var fib_1,fib_2,fib:longint;
i :integer;
if (n<3) then Fibon:=1
else
fib_1 := 1;
fib_2 := 1;
i:=2;
while i<n do
fib:=fib_1+fib_2;
fib_1:=fib_2;
fib_2:=fib;
i:=i+1;
Fibon := fib;
writeln('Fib(',40,') = ',Fibon(40));
readln;
Числа кратные к
program sumkr;
var
n,i,r,k: integer;
sum: longint;
write('Введите число n (1<=n<=4): ');
readln(n);
r:=1;
for i:=1 to n-1 do
r:=r*10;
write('Введите число k: ');
readln(k);
i:=r;
while i <= r*10-1 do
if i mod k=0 then sum:=sum+i;
writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);
===
3. НОК
program NOK_a_b;
var a, b, nod, nok,p: integer;
writeln('Введите а и в ');
readln(a, b);
p:=a*b;
while (a <> 0) and (b <> 0) do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
nok:=p div nod;
writeln('НОК= ', nok);
program raf105;
var a:array[1..30,1..20] of string;
i,j,o:integer;
s:string;
begin
for i:=1 to 30 do
for j:=1 to 20 do
a[i,j]:= '';
writeln('Вводите слова по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(s);
if s <> '0'
then
begin
o:= o+1;
for i:=1 to length(s) do
a[o,i]:= s[i];
end;
until s = '0';
writeln;
writeln('Вывод:');
for i:=1 to o do
begin
for j:=1 to 20 do
if a[i,j] = 'а'
then a[i,j]:= 'о';
for j:=1 to 20 do
if j <> 1
then
begin
a[i,1]:= a[i,1] + a[i,j];
a[i,j]:= '';
end;
writeln(a[i,1]);
end;
end.
Объяснение:
1. Числа Фибоначчи
function Fibon (n:integer):longint;
var fib_1,fib_2,fib:longint;
i :integer;
begin
if (n<3) then Fibon:=1
else
begin
fib_1 := 1;
fib_2 := 1;
i:=2;
while i<n do
begin
fib:=fib_1+fib_2;
fib_1:=fib_2;
fib_2:=fib;
i:=i+1;
end;
Fibon := fib;
end;
end;
begin
writeln('Fib(',40,') = ',Fibon(40));
readln;
end.
Числа кратные к
program sumkr;
var
n,i,r,k: integer;
sum: longint;
begin
write('Введите число n (1<=n<=4): ');
readln(n);
r:=1;
for i:=1 to n-1 do
r:=r*10;
write('Введите число k: ');
readln(k);
i:=r;
while i <= r*10-1 do
begin
if i mod k=0 then sum:=sum+i;
i:=i+1;
end;
writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);
readln;
end.
===
3. НОК
program NOK_a_b;
var a, b, nod, nok,p: integer;
begin
writeln('Введите а и в ');
readln(a, b);
p:=a*b;
while (a <> 0) and (b <> 0) do
if a > b then a := a mod b
else b := b mod a;
nod := a + b;
nok:=p div nod;
writeln('НОК= ', nok);
readln;
end.