Program rowsum; const min = 1; a = 0.5; max = 30; var b, c: real; i: integer; begin b : = a; c : = 0; for i : = min to max * 2 - 1 do begin b : = b + a; c : = c + b; end; writeln('сумма ряда равна ', c: 5: 2); readln; end.
Информационные процессы: получение - учитель вам рассказывает новую тему, прослушивание лекций в университете создание - открытие ньютоном новых законов, создание таблицы менделеевым сбор - чтение книг в школьной библиотеке обработка - осмысление полученных знаний в школе накопление - запоминание формул на уроке , запись лекций в тетрадь хранение - память о каком-либо произведении поиск - поиск номера телефона в контактах, поиск вашего местоположения на карте метро распространение - включение музыки по радио, печатание новостей в газетах, показ телепередач по тв использование - решение с использованием формул, использование таблицы менделеева для решения реакций
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу "вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30"