Вопрос по информатике:
1)Найти сумму нечетных чисел на интервале [-30;40].
2) Найти кол-во чисел на интервале [-50;120], которые кратны 9.
3) Найти произведение чисел кратных 11 на интервале [-10;20].
4) Последовательно вводятся N чисел. Найти их произведение.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.01.2017 08:14
- Информатика
- remove_red_eye 10886
- thumb_up 46
Ответы и объяснения 1
1.)
var s, i: integer;
begin
for i:=-30 to 40 do
if i mod 2 0 then s:=s+i;
writeln(s);
end.
2.)
var s, i: integer;
begin
for i:=-50 to 120 do
if i mod 9 = 0 then s:=s+1;
writeln(s);
end.
3.)
var p, i: integer;
begin
for i:=-10 to 20 do
begin
if i=1 then p:=1;
if i mod 11 = 0 then p:=p*i;
end;
writeln(p);
end.
4.)
var n, d, i, p: integer;
begin
p:=1;
write('Введите n>> ');
readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-ое число>> ');
readln(d);
p:=p*d;
end;
writeln(p);
end.
- 05.01.2017 07:53
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.