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

@Ислам32 · Регистрация: 16.05.2011

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

найти сумму всех N-значных чисел, кратных k(1 больше или равно N меньше или равно 4)

@Владимир_ВМ · 18.05.2011, 03:15

Pascal

program NK;
var
a:array[1..20] of integer;
i,n,k:integer;
s:real;
begin
s:=0;
writeln('Vvedite k');
read(k);
writeln('Vvedite 20 chisel');
for i:=1 to 20 do
  begin
  read(a[i]);
  if a[i] mod k=0 then
  s:=s+a[i];
  end;
writeln('Summa chisel kratnih ',k,' =',s:8:3);
end.

@Ислам32 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 24
		1
	Найти сумму всех N-значных чисел, кратных k 17.05.2011, 22:27. Показов 3394. Ответов 1 Метки нет (Все метки) найти сумму всех N-значных чисел, кратных k(1 больше или равно N меньше или равно 4) 0

	18.05.2011, 03:15

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

Решение