Люди!!! Мне нужна помощь. Дам 50 баллов!!!!!!!!!!!!!!!!!!!!!!!!!!!! ПИСАТЬ НА ПАСКАЛЕАБС!! В эту программу надо сделать 2 функции Фибоначчи и Треугольные числа!!
Вот сама программа!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function Odd(a: integer): boolean;
begin
result := a mod 2 = 0;
end;
function Simple(a: integer): boolean;
var
i:integer;
begin
result:=true;
i:=2;
while (i <= a - 1) and result do
begin
if (a mod i = 0) then
result:=false;
i := i + 1;
end;
end;
begin
writeln('Введите число n');
read(n);
write('Число n ');
if (Odd(n)) then writeln('чётное')
else writeln('нечётное');
if (Simple(n)) then writeln('простое')
else writeln('составное');
end.
Если вам надо программы на Фибоначчи и треугольные числа. Смотрите ниже!!
Это Фибоначчи!
var
n,f,i,f1,f2:integer;
begin
read(n);
if (n = 0) or (n = 1) then
begin
write(n, ' число фибоначчи: 1');
end
else begin
f1:= 1;
f2:= 1;
for i := 2 to n do
begin
f := f1 + f2;
f2:= f1;
f1:=f;
end;
write(n,' число фибоначчи: ',f);
end;
end.
Это Треугольные числа!!!!!!!!!!
var
a,n,S:integer;
begin
writeln('Введите число n');
read(n);
S:=0;
for a:=1 to n do
S:= a + S;
writeln('Сумма треугольных чисел ', S);
end.
Вот сама программа!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function Odd(a: integer): boolean;
begin
result := a mod 2 = 0;
end;
function Simple(a: integer): boolean;
var
i:integer;
begin
result:=true;
i:=2;
while (i <= a - 1) and result do
begin
if (a mod i = 0) then
result:=false;
i := i + 1;
end;
end;
begin
writeln('Введите число n');
read(n);
write('Число n ');
if (Odd(n)) then writeln('чётное')
else writeln('нечётное');
if (Simple(n)) then writeln('простое')
else writeln('составное');
end.
Если вам надо программы на Фибоначчи и треугольные числа. Смотрите ниже!!
Это Фибоначчи!
var
n,f,i,f1,f2:integer;
begin
read(n);
if (n = 0) or (n = 1) then
begin
write(n, ' число фибоначчи: 1');
end
else begin
f1:= 1;
f2:= 1;
for i := 2 to n do
begin
f := f1 + f2;
f2:= f1;
f1:=f;
end;
write(n,' число фибоначчи: ',f);
end;
end.
Это Треугольные числа!!!!!!!!!!
var
a,n,S:integer;
begin
writeln('Введите число n');
read(n);
S:=0;
for a:=1 to n do
S:= a + S;
writeln('Сумма треугольных чисел ', S);
end.
More Questions From This User See All