Составить программу в Turbo Pascal 7, расчитывающую сумму элементов ряда Фибоначчи, попадающих в промежуток [a1;a2], введенных с клавиатуры
5-9 класс
|
Program n1;
Uses CRT;
Const n=7;
Var a,b,m,f,g,s: integer;
begin
Writeln('Vvedite znachenia granizy promezhitka');
Readln(a,b);
f:=1;
g:=1;
While f<=b do
begin
If (f>=a)and(f<=b) then s:=s+f;
m:=g;
g:=f;
f:=m+f;
end;
writeln('Summa ravna ',s);
readln
end.
Другие вопросы из категории
Линейный алгоритм
1.
а) из истории:
б) из географии:
в) из биологии:
г) из математики:
д) из русского языка:
е) из литературы:
ж)из информатики:
Заранее спасибо!)
пользователь получает доступ к программам,установленным на его компьютере?(9 букв)
Читайте также
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б