1. Напишите программу, которая в последовательности натуральных чисел определяет сумму нечетных чисел, оканчивающихся на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число
2. Напишите программу, которая в последовательности натуральных чисел определяет количество и среднее значение суммы четных 3-хзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Если избранных чисел нет, вывести «нет»
yakovlevakristi
2
22.04.2020 20:16
7
Другие вопросы по теме Информатика
Aluniy
01.10.2019 13:01
silwana2002
01.10.2019 13:01
долин1
19.10.2020 12:58
ruslankz02
19.10.2020 12:09
89533807722qoznnn7
19.10.2020 12:31
maezsa
19.10.2020 12:50
миша1135
19.10.2020 12:50
kottonkandy
19.10.2020 12:51
kuzmov55
19.10.2020 12:51
Pustynya
19.10.2020 12:51
Популярные вопросы
- B. 900 тыс. руб.?Кафе обслуживает в день 200 посетителей. Средняя стоимостьодного...
1 - Вычислите: а) -24+(-11) б) 15+(-17) в) -32+(-12) г) 23+(-19) д) -45+(-37) е)...
3 - Нужно решить самостоятельную! Есть 35 минут...
2 - Жұптық жұмыс. Ойлан! Жұптас! Жауап бер! әдісі бойынша сұрақтарды талқылаңдар....
3 - Спиши, исправляя ошибки в употреблении слов. 1. Покрытая сухими листьями лесная...
1 - Оқылым мәтіннің мазмұнына сай күрделі жоспар құр....
3 - 641. 1)-72:(-90); 2)-2:50; :(-120) а-деп 20рет жазсаң берем падарок. ...
2 - Өрнектің мәнін тап:7/15+11/15Бірнеше дұрыс жауабын көрсет.Дұрыс жауап саны: 3...
3 - Где произрастают растения, у которых меньше всего устьиц?...
3 - Опиши картину н г хлудого перекочевка Почему картина так называется какое время...
3
program one;
var
s,n,a,i :integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if (a mod 2 <>0) and (a mod 10 =7) then
s := s+a;
end;
write(s);
end.
###
program two;
var
s,n,a,i, k :integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if (a mod 2 = 0) and (a>99) and (a<1000) then
k := k + 1;
s := s + a;
end;
write(k, s/k);
end.