Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
LoveSammer
11.08.2021 12:26 •
Информатика
Дано натуральное число n вычислить 1/1*3/2*5/3* *90/ 50
Показать ответ
Ответ:
aruzhan7klass
02.10.2020 03:48
Program gt;
var s:real;
a,b:integer;
begin
a:=1;b:=1;
s:=0;
while a<=90 do
begin
s:=s+a/b;
a:=a+2;b:=b+1;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Xmitejr
09.06.2023 07:32
Категория каких функций в программе MS Excel в качестве рузультата вычисления формулы возвращает значение Истина/Ложь?...
Anastasiua005
05.02.2022 19:40
Реферат на тему ,,роль пк в жизни современного общества,, или ,,как и где используется пк,,...
youyousiis
11.09.2021 15:39
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. В...
БеллаСAT
06.03.2022 16:09
ДАМ 40Б.!! 2. Розв’язати задачу «Перетворення типів даних».(1) Присвоїти змінній а значення 61.7(2) Перетворити значення на ціле число і присвоїти отримане число змінній b(3) Надрукувати...
PAMAGITE12
13.05.2023 01:45
С клавиатуры вводится целое число x из промежутка [100, 9999]. Если число четырех значное, то найти сумму его цифр, а если трехзначное, то найти произведение цифр числа. на python!...
alka231282
27.01.2020 05:52
Оценить объём (бит, байт, кбайт) рисунка 40*40 точек, 256 цветов. , с подробным решением....
shukirbekovabak
12.09.2021 03:49
Укажите, как организованы вложенные папки: по принадлежности, по назначению, по содержимому, по времени создания? 1) музыка, рисунки, тексты, фильмы 2) программы по , программы...
АмаХастла
12.09.2021 03:49
Intel pentium 4 3g 800 mhz 1.4 расшифруйте...
Dima140916
12.09.2021 03:49
Дана прямоугольная матрица n*m.найти наибольшие элементы в строке и среди них найти наименьший. с++...
sashaloveove
12.03.2021 04:32
Впишите в клеточки- слова ответы. а) совокупность всех компьютерных программ. (2 раза по 11 букв) б) пакет программ, работой компьютера и обеспечивающий взаимодействие между человеком...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:real;
a,b:integer;
begin
a:=1;b:=1;
s:=0;
while a<=90 do
begin
s:=s+a/b;
a:=a+2;b:=b+1;
end;
writeln(s);
end.