Найти сумму чисел, кратных k

@lbj · Регистрация: 20.09.2010

Author24 — интернет-сервис помощи студентам

Найти сумму всех n-значных чисел кратных k (1<=n<=4)
решать с помощью for

@кот Бегемот · 25.10.2010, 21:26

Сообщение от lbj

Найти сумму всех n-значных чисел кратных k (1<=n<=4)
решать с помощью for

Pascal

var
t,s,k,n,i:integer;
begin
writeln('n=');
readln(n);
writeln('k=');
readln(k);
t:=1;
for i:=1 to n
t:=t*10;
for i:=t div 10 to t-1 do
if i mod k=0 then s:=s+i;
writeln(s);
readln;
end.

@lbj · 25.10.2010, 21:48 **[ТС]**

а может быть такое что n не надо вводить, а считать все вместе при n=1,2,3,4 ?

@кот Бегемот · 25.10.2010, 22:01

у вас n- это количество цифр в числе, если вы его не введёте, компьютер будет до утра вам решение искать

@lbj · 25.10.2010, 22:05 **[ТС]**

а если мне бы надо было посчитать при n=1 и при n=2 и n=3 и n=4 вместе , что надо в проге добавить?

@кот Бегемот · 25.10.2010, 22:05

цикл for от 1 до 4

@lbj 8 / 7 / 1 Регистрация: 20.09.2010 Сообщений: 143
		1
	Найти сумму чисел, кратных k 25.10.2010, 21:19. Показов 1664. Ответов 5 Метки нет (Все метки) Найти сумму всех n-значных чисел кратных k (1<=n<=4) решать с помощью for 0

@lbj 8 / 7 / 1 Регистрация: 20.09.2010 Сообщений: 143
	25.10.2010, 21:48 [ТС]	3
	а может быть такое что n не надо вводить, а считать все вместе при n=1,2,3,4 ? 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	25.10.2010, 22:01	4
	у вас n- это количество цифр в числе, если вы его не введёте, компьютер будет до утра вам решение искать 0

@lbj 8 / 7 / 1 Регистрация: 20.09.2010 Сообщений: 143
	25.10.2010, 22:05 [ТС]	5
	а если мне бы надо было посчитать при n=1 и при n=2 и n=3 и n=4 вместе , что надо в проге добавить? 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	25.10.2010, 22:05	6
	цикл for от 1 до 4 0

Найти сумму чисел, кратных k

Решение