Предмет: Информатика,
автор: idkwtfisthis
Вводятся целые числа A и B. Выведите среднее арифметическое всех неотрицательных чисел от A до B
Нужно составить программу в паскале.
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
А можно без x.Prinln , var x:=Range , x.Where?
Автор ответа:
0
обнови
Автор ответа:
0
я добавил 2 вариант
Автор ответа:
0
Спасибо огромнейшее просто!
Похожие вопросы
Предмет: Экономика,
автор: padlo16
Предмет: Русский язык,
автор: mariahuzahmetova6
Предмет: Математика,
автор: denisskasirins
Предмет: Математика,
автор: дарюся2003
Предмет: Математика,
автор: даниил12345678910