Вопрос по информатике:
составить программы
1.найти сумму всех 3х значных чисел кратных 17.
2.найти произведение всех чисел меньше 16.
- 13.12.2017 19:00
- Информатика
- remove_red_eye 9348
- thumb_up 63
Ответы и объяснения 1
1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.
- 14.12.2017 07:07
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.