В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
DarkLooord
DarkLooord
09.09.2020 16:10 •  Информатика

составить на Паскале: 1) программу для вычисления суммы ряда S=1+ 1/2+1/3+1/4+..+1/N. Число N вводится с клавиатуры.

Показать ответ
Ответ:
gopina04vika
gopina04vika
20.04.2021 19:10

1)

var

 s : real;

 i, n : integer;

begin

 s := 0;

 read (n);

 for i := 1 to n do s := s + 1 / i;

 writeln (s);

end.

 

2)

var

 a, i : integer;

begin

 a := 1;

 for i := 1 to 8 do

 begin

   a := a * 2;

   writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');

 end;

end.

 

3)

var

 n, i : integer;

 x, s : real;

begin

 s := 0;

 read (n, x);

 for i := 1 to n do

   s := s + sin (i * x);

 writeln (s);

end.

 

4)

var

 n, a, r, i : integer;

begin

 r := 1;

 read (a, n);

 for i := 1 to n do r := r * a;

 writeln (r);

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота