Задать вопрос
6 сентября, 13:48

Вводятся целые числа A и B. Выведите среднее арифметическое всех неотрицательных чисел от A до B

Нужно составить программу в паскале.

+5
Ответы (1)
  1. 6 сентября, 15:21
    0
    1 способ

    var

    a, b: integer;

    begin

    write ('Введите a: ') ;

    readln (a) ;

    write ('Введите b: ') ;

    readln (b) ;

    var x : = Range (a, b) ;

    writeln ('Последовательность: ') ;

    x. Println;

    writeln ('Ср. ариф. неотриц чисел: ') ;

    writeln (x. Where (x - > x > = 0). Average) ;

    end.

    2 способ

    var a, b, i, s: integer; k: real;

    begin

    write ('Введите a: ') ;

    readln (a) ;

    write ('Введите b: ') ;

    readln (b) ;

    writeln ('Последовательность: ') ;

    for i:=a to b do write (i,' ') ;

    writeln () ;

    s:=0;

    for i:=a to b do

    if i>=0 then begin

    s:=s+i;

    k:=k+1;

    end;

    writeln ('Ср. ариф. неотриц чисел: ') ;

    write (s/k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вводятся целые числа A и B. Выведите среднее арифметическое всех неотрицательных чисел от A до B Нужно составить программу в паскале. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы