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

July 2022 1 11 Report

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

Answers & Comments

ShirokovP

Verified answer

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.

idkwtfisthis А можно без x.Prinln , var x:=Range , x.Where?

ShirokovP обнови

ShirokovP я добавил 2 вариант

idkwtfisthis Спасибо огромнейшее просто!

Answers & Comments

Verified answer

pomogite reshit 415 40 ballov

c najti vysotu na kotoroj uskorenie kamnya stanet ravno a01g

vvodyatsya celye chisla a i b vyvedite vse dvuznachnye chisla ot a do b kotorye del

vvodyatsya tri chisla a b c vyvedite vse celye chisla ot naimenshego iz nih do na

reshite zadachu 8 pozhalujstae6e0d68714776c933361babf484a02e1 74401

sd0a30b8af4705084cbd2c86a1b7c0d0e 38735

рекомендуемые вопросы

Helpful Links

Helpful Social