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

@Muvermaks · Регистрация: 30.10.2018

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

Найти сумму всех n-значных чисел, кратных к (к=1,2,3).
Как это решить через while?

@ZX Spectrum-128 · 30.10.2018, 10:57

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

Добавлено через 22 секунды

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

Как это решить через while?

Очень просто

@Muvermaks · 30.10.2018, 10:59 **[ТС]**

Сижу полтора часа голову ломаю.

@Puporev · 30.10.2018, 11:04

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

n-значных чисел, кратных к (к=1,2,3).

Условие написано не правильно, нужно n=1,2,3.

@Muvermaks · 30.10.2018, 11:10 **[ТС]**

Написал как есть(

@ZX Spectrum-128 · 30.10.2018, 14:03

Pascal

uses crt;
 
var
  n, k, i, j, s: integer;
 
begin
  repeat
    write('Количество цифр в числе от 1 до 4 n=');
    read(n);
  until n in [1..4];
  j := 1;
  i := 1;
  while i <= n do
  begin
    j := j * 10;
    inc(i);
  end;
  write('Введите число для проверки кратности k=');
  read(k);
  i := j div 10;
  while i <= j - 1 do
  begin
    if i mod k = 0 then 
      s := s + i;
    inc(i);
  end;
  write('Сумма кратных ', k, '=', s);
end.

@Muvermaks 0 / 0 / 0 Регистрация: 30.10.2018 Сообщений: 16
		1
	Найти сумму всех n-значных чисел, кратных к 30.10.2018, 10:53. Показов 2560. Ответов 5 Метки нет (Все метки) Найти сумму всех n-значных чисел, кратных к (к=1,2,3). Как это решить через while? 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	30.10.2018, 10:57	2
	Найти сумму всех n-значных чисел, кратных k Добавлено через 22 секунды Сообщение от Muvermaks Как это решить через while? Очень просто 0

@Muvermaks 0 / 0 / 0 Регистрация: 30.10.2018 Сообщений: 16
	30.10.2018, 10:59 [ТС]	3
	Сижу полтора часа голову ломаю. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.10.2018, 11:04	4
	Сообщение от Muvermaks n-значных чисел, кратных к (к=1,2,3). Условие написано не правильно, нужно n=1,2,3. 0

@Muvermaks 0 / 0 / 0 Регистрация: 30.10.2018 Сообщений: 16
	30.10.2018, 11:10 [ТС]	5
	Написал как есть( 0

	30.10.2018, 14:03

Опции темы

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

Решение