Найти сумму всех трехзначных чисел кратных к
weldys99
2
25.03.2019 03:20
0
Другие вопросы по теме Информатика
Лера240504
05.10.2020 17:52
dimasikmirnyy9
24.12.2021 07:56
darinakor140197nooii
24.12.2021 08:10
lera978
24.12.2021 08:11
mishanyak1999
19.11.2019 18:30
Зафар1234567890
19.11.2019 18:29
toroshinaalena
14.09.2019 00:30
Амина9505
26.07.2019 20:50
portal1234
26.07.2019 20:50
Популярные вопросы
- Чему равна сумма двойного сложения 3-х и 3-х...
2 - Яке походження висловів спартанське виховання та лаконічна мова. заранее...
3 - Один маляр може пофарбувати паркан,площа якого становить 240м к,за 12 год(2зміни).інший...
3 - Поділити слово для переносу український...
2 - Храм гефеста на агоре рискнок нашего времени на завтра...
1 - Установите простейшую формулу муравьиной кислоты, если известно, что массовые...
2 - Решите уравнение пошагово: (8z-2)(5z+4)=(4z-1)(8z+8)...
2 - Задайте мене будь ласка какой нибудь пример на дилення столбик...
2 - Докажите, что это стихотворение (край ты мой, родимый создано под воздействием...
2 - Расположить числа в порядке убывания 2/9,1/3,2/4,3/12,5/9...
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.
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.