Напишите программу на языке паскаль по алгоритму алг нач вещ p,s p: =2 s: =0 нц p: =p*1.5 s: =s+p кц при p> 5 вывод s кон только на стандарте школьной программы.
Елизавета1040
1
22.09.2019 01:40
8
Другие вопросы по теме Информатика
premium79
31.08.2019 13:50
Kristina1605lps
19.08.2019 17:10
egordyachenko
15.03.2021 07:58
alinasun230503
18.10.2020 08:14
dilya69202
18.10.2020 08:15
Vova89898
18.10.2020 08:16
12853
18.10.2020 08:17
JuliusM
08.10.2019 19:01
Популярные вопросы
- Для какого субъекта рф характерен миграционный отток населения...
1 - Надо сочинение на тему образ пугачева в фольклоре в произведениях а.с.пушкина и...
1 - Из двух городов расстояние между которыми 560 км одновременно навстречу друг другу...
1 - Нужно решить уравнение а)50*(х : 16) = 40150 2 700 + y * 400 = 170 700 (12 300...
3 - Квартира состоит из двух комнат. измерение одной комнаты 6,2м, 3,4м, 4,5м,. измерение...
1 - Решите кроссворд: 1.дикая свинья 2.сеятель дуба 3. лесная корова 4.охотница за...
2 - Водной коробке было 28 карандашей, а в другой на 24 карандаша меньше.во сколько...
2 - Выполните деление: 2/9 разделить 2...
2 - В11 ч с аэродрома вылетели одновременно в противоположных направлениях два самолёта...
2 - Коля пробежал 100 м за 20 с. за какое время он пробежит расстояние в 60 м, если...
1
Var S, P: real;
Begin
P := 2;
S := 0;
Repeat
P := P * 1.5;
S := S + P;
Until (P > 5);
Writeln('S = ', S);
End.