Пожаловаться
- 01.12.2017 16:11
- Информатика
- remove_red_eye 8528
- thumb_up 71
Ответы и объяснения 2
i,k,s:integer;
read(k);
s=0
for i=100 to 999 do begin
if i mod k = 0 then
s=s+i;
end;
write(s);
end.
Пожаловаться
- 02.12.2017 15:54
- thumb_up 11
var i,K,S:real;
begin
write('vvedite K = ');
readln(K);
S=0
for i=100 to 999 do
begin
if i mod K = 0 then
S=S+i;
end;
write('S = ',S);
readln;
end.
Пожаловаться
- 03.12.2017 13:30
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы