Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Masha36127
17.10.2020 19:44 •
Информатика
Составьте программу вычисления суммы 2/3+3/4+4/5++10/11 с использованием оператора while
Показать ответ
Ответ:
Мосендз
07.10.2020 23:04
Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
begin
i:=i+1;
s:=s+i/(i+1);
end;
writeln('s = ',s:6:4);
end.
Результат:
s = 7.4801
0,0
(0 оценок)
Популярные вопросы: Информатика
loloshka21
26.06.2020 05:31
По м о г и т е .программирование на языке pascal. 1) два числа называются дружественными, если каждое равно сумме делителей другого, исключая само число. найти все дружественные...
nikanor020499
26.06.2020 05:31
Определите длину кратчайшего пути между пунктами а и e. передвигаться можно только по дорогам, протяжённость которых указана в таблице. 1) 9 2) 10 3) 11 4) 12...
ayla678
26.06.2020 05:31
Составить блок- 1. значения элементов двумерного массива в размера 10 х 10 вложенных операторов цикла в представленном фрагменте программы. сколько элементов массива...
nika270106
26.06.2020 05:31
1. вывести все четные числа начиная с числа n до числа m. числа n и m задает пользователь. напишите программу паскале, ....
lilcutthroat
04.01.2022 14:30
Определите значение целочисленных переменных x и y после выполнения фрагмента программы: х : = 12 у : = 5; t : = y; у : = х mod у; x : = t; у : = у + 2*t;...
Coolboy1213
18.02.2022 22:49
Какие будут последствия для человечества дальнейшего развития компьютерной техники и сетей?...
LaSeine28
29.12.2021 05:26
Составить массив целых чисел состаящих из 100 элементов. найти произведение четных чисел...
ilay23143p0bp8a
06.01.2021 10:59
Перевести сумму к рублей в доллары сша по курсу ммвб на день решения ....
adrian55RUS
01.02.2021 22:47
Компьютерные вирусы и борьба с ними. напишите на эту тему актуальность....
ноолмллкшшп
08.02.2020 01:14
Для какого из указанных значение числа х ложно выражение: (х 3)или не (х 2)? варианты ответа: 1)1 2)2 3)3 4)4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
i:=1; s:=0;
while i<10 do
begin
i:=i+1;
s:=s+i/(i+1);
end;
writeln('s = ',s:6:4);
end.
Результат:
s = 7.4801