Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Люди!!! Мне нужна помощь. Дам 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.

Ответ оставил Гость

Скорее всего, имелось в виду то, что представлено в прилагаемом файле.