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

Составьте программу на языке паскаль для следующих : 1. найдите сумму всех чисел от a до 500 (значение a вводится с клавиатуры; a≤500). 2. найдите среднее арифметическое всех целых чисел от a до b (значение aи b вводится с клавиатуры; a≤b). 3. дана последовательность вещественных чисел a1, a2, …, a15, по возрастанию, и, число n, не равное ни одному из чисел последовательности и такое, что a1≤n≤a15. a) определить сумму элементов последовательности меньших n. б) найти два элемента последовательности (их порядковые номера и значения) в интервале между которыми, находится число n.

Показать ответ
Ответ:
skssjsub111
skssjsub111
01.10.2020 11:11
Var i, a, s: integer;
begin
     readln(a);
     for i := a to 500 do
         s := s + i;
     writeln(s);
end.

2) 
var i, a, s, c, b: integer;
begin
     readln(a, b);
     for i := a to b do
     begin
         s := s + i;
         c := c + 1;
     end;
     writeln(s / c:4:2);
end.

3)
const N=10;
var i, b, s: integer;
    a: array [0..N] of integer;
begin
     readln(b);
     for i := 0 to N do a[i] := random(9000);
     for i := 0 to N do
         if (a[i] < b) then s := s + i;
     for i := 0 to N - 2 do
         if (a[i+1] = b) then writeln('(', a[i], '; ', a[i+2], ')');
     writeln(s);
end.

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