Вычислить сумму всех чисел фибоначчи ,которые меньше тысячи

Знания

Информатика

1 ответ:

вера54 года назад

0 0

a[1] := 1;

a[2] := 1;

i := 3;

sum := 0;

while (a[i] < 1000) do

begin

a[i] := a[i - 1] + a[i - 2];

inc(i);

end;

for j := 1 to i do

sum := sum + a[i];

write(sum);

Читайте также

Дана матрица А(3,3). В строках с отрицательным элементом на главной диагонали найти суммы всех элементов. Вывести номера строк,

Hati

Var a,b,i,min,j,sum:longint;
m:array[1..3,1..3] of longint;
begin
for i:=1 to 3 do
for j:= 1 to 3 do
read(m[i,j]);
for i:=1 to 3 do
if m[i,i]< 0 then
begin
for j:=1 to 3 do
sum:=sum+m[i,j];
writeln(i,' ',sum);
sum:=0;
end;
for i:=1 to 3 do
begin
writeln;
for j:= 1 to 3 do
write(m[i,j],' ');
end;
<span>end.</span>

0 0

4 года назад

Основные компоненты компьютера сообщение !!! Помогите очень срочно

Андрей РТ

Монитор системный блок клавиатура мышка

0 0

3 года назад

1. Даны два персонажа в сценарии: Алдар-Косе и бай. Составьте программу, используя среду программирования. Алдар-Косе и бай знаю

rizosv2 [272]

1) Выбираем двух персонажей

2) Создаем скрипт для каждого из персонажей

3) Для того, чтобы они шли друг к другу, поменять направление для одного (в левую сторону). Изменить стиль вращения.

0 0

4 года назад

Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на эк

RESSPECT [7]

Var a: array [0..10] of integer;
i, p, o, n: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
if (a[i] > 0) then inc(p);
if (a[i] = 0) then inc(n);
if (a[i] < 0) then inc(o);
end;
writeln();
writeln(p, ' ', n, ' ', o);
<span>end.</span>

0 0

4 года назад

Паскаль Дано натуральное число n (n вводится пользователем с клавиатуры). Вычислить:

людмила3535

Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.

0 0

4 года назад