От нашего клиента с логином EGWkxO на электронную почту пришел вопрос: «Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое» это здание мы отнесли к разделу ЕГЭ (школьный). Так как клиент является зарегистрированным пользователем нашего сайта, то мы бесплатно предоставим ответ.
ЕГЭ (школьный) — довольно сложный раздел, здесь действительно попадаются вопросы, которые даже у специалиста с законченным высшим образованием поставят в тупик при подготовке правильного ответа. Но мы известны тем, что сложности нас не останавливают, а наоборот развивают и расширяют наши знания.
Вы спрашивали Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое? — отвечаем:
ответ к заданию
Некоторые еще читают Перевести двоичное число 101011 2 в десятичную систему счисления.? Но все-же больше интерес вызывает просмотр темы Электронная формула иона хлора:. Хотя нет, сегодня часто открывают вкладку Сравнение Византии и стран Западной Европы. и вот эту Каким образом первичные пробионты получали энергию?? Это не подходит? Тогда напишите нам почту.
Как найти сумму n чисел Python
Источник: xn—-7sbapcyiojdlglffl.xn--p1ai
Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет
March 2022 1 7 Report
Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введённых чисел массив не использует сделайте три варианта программы используя операторы цикла в while repet и for
номер 2 и 4 пожалуйста помогите !
Answers
begin
repeat
begin
WriteLn(‘число: ‘);
ReadLn(i);
k := k + 1;
j := j + i;
end
until k = 10;
WriteLn(‘Среднее арифметическое=’, j / 10);
end.
2.
program ddg1;
var i,j,k:Integer;
begin
while k<>10 do begin
WriteLn(‘число: ‘);
ReadLn(i);
k:=k+1;
j:=j+i;
end;
WriteLn(‘Среднее арифметическое=’,j/10);
end.
var
i, j: Integer;
begin
for i := 1 to 10 do
begin
WriteLn(‘Введите число:’);
readln(i);
end;
j := j + i;
WriteLn(‘Среднее арифметическое = ‘, j / 10);
end.
4. Таблица умножения:
var
n, m: integer;
begin
for n := 1 to 10 do
for m := 0 to 10 do
WriteLn(n, ‘*’, m, ‘=’, n * m);
end.
Источник: scholar.tips
18 Цикл while Python
Составьте программу по которой компьютер 10 раз запросит ввод любых чисел и в результате выведет
Да не умею я. Меня мама, программист по образованию, засунула в чертов ВУЗ, связанный с программированием. Я ничего из этого не знаю, поэтому и прошу помочь
Регистрация: 21.02.2016
Сообщений: 6
Тут же написано :»Помощь студентам».
Регистрация: 12.11.2010
Сообщений: 8,570
Скажите, а почему вы не обращаетесь к маме за помощью, а пишете на форум? Если она засунула вас в этот ВУЗ, то, значит, ей не всё равно, что будет с вами дальше. Поэтому, она не должна отказать в помощи, ИМХО.
Регистрация: 21.02.2016
Сообщений: 6
Скажите, а почему вы не обращаетесь к маме за помощью, а пишете на форум? Если она засунула вас в этот ВУЗ, то, значит, ей не всё равно, что будет с вами дальше. Поэтому, она не должна отказать в помощи, ИМХО.
Она на работе почти ежедневно с утра до поздней ночи, а когда приходит, то ей не до этой мелочи.
Судя по тем людям, которые здесь сидят, эта задачка вам на 1 зуб.
А я просто не хочу быть программистом, всю жизнь интересовалась языками и искусством, но не этим.
Прошу просто помочь и я навсегда пропаду с этого форума.
Регистрация: 12.01.2011
Сообщений: 19,500
Ну так беги из вуза, толку его заканчивать?
Регистрация: 23.10.2010
Сообщений: 2,228
Моё мнение, все не так плохо.
Мама знает, что лучше .
Лингвисты и искусствоведы нанимают программистов для решения своих задач, а толком объяснить что им надо не умеют.
А тут возможность быть два в одном.
Конечно придётся напрячься, но для молодого целеустремлённого .
По твоей задаче:
1. Напиши, например, цикл
for i := 1 to 1o do begin end;
2. Для определения того, что число четное можно проверить его делимость на 2. Остаток должен быть равен нулю
Пример:
if i MOD 2 = 0 then . else .
3. В цикле должен быть условный оператор, в котором контролируется, в твоём случае, нечетность.
Используй для сравнения этот оператор — <> ) и считай число таких событий, например,
Nechet := Nechet + 1;
Да, перед началом цикла For необходимо переменную Nechet обнулить.
Так правильнее будет.
Попробуй самостоятельно связать сказанное.
PS: Есть еще функция Odd(n) — про неё лучше причитай сама.
personality
Регистрация: 28.04.2009
Сообщений: 2,865
var i, j, cnt: Integer; begin cnt := 0; Writeln(‘Vvedite 10 chisel’); For i:=1 to 10 do begin Readln(j); if j mod 2 = 1 // ostatok ot deleniya na 2 dlya nechetnyh = 1 cnt := cnt + 1; end; Writeln(‘Nechetnyh chisel ‘, cnt); Readln; end.
По аналогии (как Вадим сказал) поменял пару строк в коде, что Неверов писал.
Затрудняюсь сказать, насколько целесообразно дальше учиться на околопрограммерскую специальность, если у Вас тяга к этому отрицательная, но у Вас 2 выхода — либо сесть и таки учить (базовый паскаль вообще лёгкий — как английский с простейшей математикой и логикой, по порядочку всё), либо не заниматься этим и каким-либо образом прекратить это всё. А вообще совет — не заниматься ерундой, хочу не хочу, знаю не знаю — принимайте решение и выполняйте его, а не стойте на месте и не занимайтесь подстановкой костылей к своей ситуации (вроде попыток решения своих задачек первых часов обучения на форуме).
Не знаю, как Вы вообще могли попасть на такую специальность, там обычно надо по математике хорошо экзамены сдавать, а математика и программирование очень родственные и любить математику (и сдать на хороший балл), но не любить программирование — очень странно, если, конечно, не имела место быть протекция.
Источник: www.programmersforum.ru