Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.11.2017 11:11
- Информатика
- remove_red_eye 11927
- thumb_up 14
Ответы и объяснения 2
begin
for I := 10 to 100 do
if i mod 10=0 then
writeln(i);
readln;
end.
b) var I,k:integer;
begin
k:=0;
for I := 10 to 100 do
if (i mod 3=0 ) and (i mod 70)then
inc(k);
writeln(k);
readln;
end.
c)var I,k,sum:integer;
begin
k:=0; sum:=0;
for I := 10 to 100 do
begin
if i mod 5=0 then
begin
sum:=sum+i;
inc(k);
end;
end;
writeln(sum/k);
readln;
end.
- 06.11.2017 16:22
- thumb_up 44
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(10,100);
s.Where(p->p mod 10=0).Println; // а
Writeln(s.Where(p->(p mod 3=0) and (p mod 7 0)).Count); // б
Writeln(s.Where(p->p mod 5=0).Average) // в
end.
Результат
10 20 30 40 50 60 70 80 90 100
26
55
Замечание: для решения a), б) или в) нужна лишь одна из помеченных соответствующих пунктом строк.
- 07.11.2017 17:33
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.