Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sargsyantatev1
04.03.2023 11:00 •
Информатика
Напишите программу на языке паскаль по алгоритму алг нач вещ p,s p: =2 s: =0 нц p: =p*1.5 s: =s+p кц при p> 5 вывод s кон только на стандарте школьной программы.
Показать ответ
Ответ:
missvolkova2001
08.10.2020 08:23
Program Test;
Var S, P: real;
Begin
P := 2;
S := 0;
Repeat
P := P * 1.5;
S := S + P;
Until (P > 5);
Writeln('S = ', S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Rebefullik4
10.06.2021 00:08
Дорогие программисты по информатике! Напишите программу по этим алгоритмам умоляю...
gelya12121
08.10.2022 06:10
Решайте которое выделил с карандашом. Решайте правильно все...
arianaforever1
27.03.2021 06:03
Какие два типа пакетов используют для научных расчетов? Почему нельзя обойтись только одним? Сравните задачи, которые решаются с растровых и векторных графических редакторов.Почему...
Яркий2017
30.01.2021 11:29
решите тест по информатике...
пик124
19.05.2022 19:56
/ S T Uбят2 вариант1. Записать следующие математические выражения по правилам языка rascal7х3 – 4528х - 102г) х=+ју?b+c.32б) V5b2c(2c2 – 8). в) 1+2x+3х+4х32. Выполнить обратную операцию:...
antoshkaromanov
15.12.2022 18:50
ИНФОРМАТИКА 7 КЛАСС, НАПИШИТЕ ПРОГРАММУ ЧЕРЕЗ...
кент1346
12.02.2020 01:39
Написать программу вычисления суммы n слагаемых вида: (k-1)3 где к=1,2, n...
nurayhasanova2oztngy
27.01.2021 20:53
Задано предложение, состоящее из слов-строк. Написать программу, которая находит самое короткое слово в предложении. Необходимо написать на C++...
Андрей22256987654
27.10.2020 14:30
Здравствуйте с решением задачи по информатике. Даны числовой ряд и некоторое число e 0. Найти сумму тех членов ряда, которые по модулю больше или равны Общий член ряда имеет вид a_{n}...
tural23
07.01.2021 18:56
Составьте таблицу истинности для логической функции X = (А /\ ¬C → B) /\ (C↔ B\/A) в которой столбец значений аргумента А представляет собой двоичную запись числа 200, столбец значений...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var S, P: real;
Begin
P := 2;
S := 0;
Repeat
P := P * 1.5;
S := S + P;
Until (P > 5);
Writeln('S = ', S);
End.