tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Хэлп! ! дан ряд чисел: 1+2+2+4+8+
Хэлп! ! дан ряд чисел: 1+2+2+4+8+ (умножаем на предыдущее число). пользователь вводит сколько должно быть чисел в этом ряду, а программа должна посчитать их сумму. , напишите в паскале!
ЕсенжоловаЛяззат
1 07.06.2019 23:50
0
Ответы
katiaefimova
07.07.2020 12:49
Var a,b,c,s,n,i:integer;
begin
readln(n);
a:=1;
b:=2;
s:=3;
for i:=3 to n do
begin
c:=b*a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
пума060
07.10.2019 02:30
5. дано | целочисленный массив a[1: n]. надо | найти элемент массива, который ближе всего к | среднему арифметическому всех элементов | массива, и записать его в переменную...
stiles1996
07.10.2019 02:30
Создать 1 циклический алгоритм на свободную тематику (из 30 действий)...
zajka23oz3xl9
07.10.2019 02:30
Разработать интерфейс для : нахождение расстояния если известна скорость и время...
Lizzzzxff
07.10.2019 02:30
Як створити гру на телефон на телефоні?...
ritapechyonkina77
10.12.2020 11:32
Дана таблица и правило условного форматирования. ВсD1Средняя скорость транспорта км/ч4No no com :Вид транспорта скоростьавтобус50грузовые70легковые807велосипеды15мотоциклы45междуФорматировать...
karkhachatryan
10.12.2020 11:34
Буду очень благодарна если...
justfrog44Arch
20.05.2020 13:37
У вікні редактор тексту можна(Лазарус):1.Створювати та редагувати код програми2.Малювати3.Розміщувати різні графічні елементи4.Читати повідомлення про помилку у програмі5.Для...
Aki0510
20.05.2020 13:40
Написать программу на языке Pascal по следующему алгоритму: 1. получить 2 целых числа. 2. сравнить числа. 3. вывести на экран наибольшее число....
ilyuxayakovlev
26.07.2019 22:50
Дан текст слова в тексте разделены одним или несколькими пробелами написатл программу удаляющая пробел между словами...
Simochka123
26.07.2019 22:50
Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)...
Популярные вопросы
ответить на вопросы 1. do you enjoy keeping fit? why? 2. what do you...
1
Розкласты многочлен на множныки 10+0.6ху-5у-1.2х...
1
Подчеркнуть члены предложения. ежу удобно собирать листья. найдет он...
3
До готелю приїхало 110 туристів. їх розселили у 15 малих кімнат, по...
2
Первый слог личное местоимение второй в славах сварщик и пильщик вместе...
3
Родственное существительное со значением действия от глагола хохотать,...
3
Вкаком климатическом поясе реки африки многоводны весь год? а) в субэкваториальном...
1
Сто семеновских солдат.какой вопрос семеновских...
3
Каким образовано слово постучится...
2
Какой падеж у местоимения меня в предложении: мама научила меня всему....
1
begin
readln(n);
a:=1;
b:=2;
s:=3;
for i:=3 to n do
begin
c:=b*a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
end.