Орлова
?>

Cклавиатуры вводятся произвольные числа. необходимо вычислить среднее арифметическое всех введенных четных чисел. условием выхода из цикла является сумма чисел больше 150. написать программу на языке паскаль.

Информатика

Ответы

veronikagrabovskaya
PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

function ReadWhileSum(cond: integer->boolean): sequence of integer;

begin

 var s := 0;

 while True do

 begin

   var x := ReadInteger();

   s += x;

   if not cond(s) then break;

   yield x;  

 end;

end;


begin

 Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)

                                                                        .Where(t->t.IsEven).Average);

end.


Cклавиатуры вводятся произвольные числа. необходимо вычислить среднее арифметическое всех введенных
dariagromova54

о каляска не бей я тоже хочу в этом году в тетради или например сказать другу и слушайте как я красиво пою ты на работе хорошо я поняла что это за что извиняетесь я не могу найти в интернете и слушайте как я красиво пою ты на работе хорошо я поняла что это не я а не в курсе что это не я а не в курсе что это не я а не в курсе что это не я а не в курсе что это

Объяснение:

о каляска не бей а ты как я красиво пою ты мне прислал а вам не нужно будет сделать благодаря разных записей в тетради или например сказать другу и слушайте как я красиво пою ты на работе хорошо я поняла что ты вообще не отправляешь задания на проектирование

bb495

ответ:

в те времена, когда компьютеры и интернет были предметами шика и роскоши, безумной популярностью пользовались компьютерные игровые клубы. десятки тысяч школьников по всей стране просиживали там практически всё своё свободное время. этот пост для тех, кто помнит что такое «пойти толпой на ночь».   в клубах была своя атмосфера. в прямом смысле слова: обычно здесь было душно, пахло куревом и дешёвым мужским одеколоном. основной контингент — школьники практически всех возрастов.   клубом админ. , это был царь и бог, с которым все старались завести дружбу потому что друзьям админ разрешал играть бесплатно. а ещё он сам мог играть во что угодно за своим главным компом, да ещё и получать за это деньги. тогда для всех посетителей клуба это было пределом мечтаний.

объяснение: выбери кратко какую-нибудь инфу

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Cклавиатуры вводятся произвольные числа. необходимо вычислить среднее арифметическое всех введенных четных чисел. условием выхода из цикла является сумма чисел больше 150. написать программу на языке паскаль.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

verav75
victors
olesyashazk5055
Nikolaevich824
rayon14
ksen1280
Mikhailovich_Viktoriya
stanefimov
Boldinova-Marianna
aifbon
valueva260860
Хабарьева Андрей1056
julkamysh9
ivnivas2008
nadezhdasvirina