1. Информатика
  2. 15 ! дана такая хрень: 1+2+5+8+

15 ! дана такая хрень: 1+2+5+8+ то есть, прибавляем предыдущее число. пользователь вводит сколько должно быть чисел в ряду, а программа должна посчитать сумму. напишите в паскале, !

HNLLZ HNLLZ    2   07.06.2019 11:30    0

Ответы
Nurzhan2207 Nurzhan2207  07.07.2020 08:17
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
  begin
  c:=b+a;
  s:=s+c;
  a:=b;
  b:=c;
  end;
writeln('s=',s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
АльтЛанд АльтЛанд  05.09.2019 01:30
Составить синквейн на тему система счисления...
Belka1985 Belka1985  05.09.2019 01:30
Какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 128 на 128 пикселов при условии, что в изображении...
кит217 кит217  05.09.2019 01:30
Рисунок размером 256 на 128 пикселей занимает в памяти 12 кбайт (без учёта сжатия). найдите максимально возможное количество цветов в палитре изображения....
890605 890605  05.09.2019 01:30
Для питона даны числа a, b, c, d, e. подсчитайте количество таких целых чисел от 0 до 1000, которые являются корнями уравнения (ax3+bx2+cx+d)/(x-e)=0, и выведите их количество....
aza53 aza53  05.09.2019 01:30
Автоматическое устройство осуществила перекодировку информационного сообщения записанного на языке из 16 битной в 8 битную кодировку. на сколько изменился информационный...
Виолетта030905 Виолетта030905  05.09.2019 01:30
Для питона определите сумму всех элементов последовательности, завершающейся числом 0. входные данные вводится последовательность целых чисел, оканчивающаяся числом 0 (само...
Danil24052002 Danil24052002  20.10.2020 06:40
Даны натуральные числа от 1 до 50 найдите сумму тех, которые делятся на 5 или 7. Блок схема к этой задачи ​...
РоузХз РоузХз  20.10.2020 07:03
Вычислите min{min(|X ∪ Y|, |Y ∩ Z|) + max (|X ∪ Z|, |Y ∩ X|)} на множестве всех таких множеств, что мощность множества Х равна 8, мощность множества Y равна 7, а мощность...
пидрила5 пидрила5  20.10.2020 07:03
В массиве хранится информация о количестве осадков, выпадающих ежедневно в октябре (случайные числа от 0 до 10). Составьте программу, которая выводит даты ясных дней и...
Gora583Иришка Gora583Иришка  20.10.2020 07:41
Окушы матинды 16 танбадан туратын алфавитпен терды,ал болат куаты 256 танба болатын афавитпен терды екы турли алфавитпен жазылган акпарат колемин аныктаныз.ХЕП​...

Популярные вопросы