сервис вопросов и ответовряд из 50 чисел Фибоначи, узнать на сколько нечетных чисел больше чем четных.
5-9 класс|
|
7war
22 апр. 2013 г., 12:52:14 (11 лет назад)
Daneliya
22 апр. 2013 г., 13:48:08 (11 лет назад)
var
f0, f1, f2, i, r: integer;
begin
f0 := 0; f1 := 1; r := 0;
for i := 2 to 50 do
begin
f2 := f1 + f0; f0 := f1; f1 := f2;
if (f2 mod 2 = 0) then r := r - 1 else r := r + 1
end;
Writeln('Нечетных чисел больше на ', r)
end.
Тестовое решение:
Нечетных чисел больше на 17
Ответить
Другие вопросы из категории
нужно создать две программы в Паскале АВС, срочно!
(должны получиться рисунки как на фото)
Заспорили пуночки (северные воробьи), не могут решить, какой бывает снег. «Золотой», сказало Утро. «Голубой», сказало Небо. «Синий-синий», сказали Тени.
«Холодный», сказала Утка. «Серебряный», сказала Луна . как заменить глагол сказать его синонимами как делать?
Читайте также
Составьте программу, которая определяет, сколько раз встречаются числа x,y, x-y,x+y в последовательности из 50 заданных чисел. Данные с
клавиатурызадаются в таком порядке: x y и 50 чисел. Помогите, пожалуйста, очень надо)
Составьте программу, которая определяет, сколько раз встречаются числа x,y, x-y,x+y в последовательности из 50 заданных чисел. Данные с клавиатуры
задаются в таком порядке: x y и 50 чисел. Помогите, пожалуйста, очень надо)
Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10 чисел, значения могут быть
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
составьте программу, которая вставляет слово ОБА после каждого слова, заканчивающегося на гласную.
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
Вы находитесь на странице вопроса "ряд из 50 чисел Фибоначи, узнать на сколько нечетных чисел больше чем четных.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.