Предмет: Информатика,
автор: DAshKA368
Найти сумму всех трехзначных чисел кратных К
Ответы
Автор ответа:
0
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.
Автор ответа:
0
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Newbier
Предмет: Математика,
автор: yelliiann
Предмет: Русский язык,
автор: darax79
Предмет: Обществознание,
автор: maria20031999
Предмет: Биология,
автор: Linka8525