Автор Ёаша Назаров задал вопрос в разделе Другие языки и технологии
Решите задачу на Паскале: "Найти сумму всех n-значных чисел (1<=n<=4)". и получил лучший ответ
Ответ от ?????? Зелёный змий ??????[гуру]
int s = 0;
for (int i = 1; i < 10000; i++)
s += i;
Хотя проще посчитать арифметическую прогрессию.
(1 + 9999) * 9999 / 2
Ответ от Sm[гуру]
стучи в агент
стучи в агент
Ответ от Jurijus Zaksas[гуру]
Вводишь n.
Определяешь начальное и конечное число.
Начальное имеет вид 10....0 с количеством нолей равным n-1. Назовем это число sc.
Конечное имеет вид 9....9 с количеством девяток равным n. Назовем это число еc. Это делается циклами, можешь засунуть сюда свой while, хотя цикл со счетчиком подошел бы лучше.
Затем вычисляешь сумму арифметической прогрессии по известной с 6-го класса формуле, от sc до еc с шагом 1 - это и есть ответ. Программу как-нибудь сам.
Вводишь n.
Определяешь начальное и конечное число.
Начальное имеет вид 10....0 с количеством нолей равным n-1. Назовем это число sc.
Конечное имеет вид 9....9 с количеством девяток равным n. Назовем это число еc. Это делается циклами, можешь засунуть сюда свой while, хотя цикл со счетчиком подошел бы лучше.
Затем вычисляешь сумму арифметической прогрессии по известной с 6-го класса формуле, от sc до еc с шагом 1 - это и есть ответ. Программу как-нибудь сам.
Ответ от Николай Вольф[гуру]
var i integer; summ integer; n: integer; k: integer;
begin
write ("type n in: ");
readln (n);
i := 1;
for k := 1 to n do i := i * 10;
k := i;
summ := 0'
while k < i * 10 do begin
summ := summ + k;
inc (k);
end;
writeln ("summ = ", summ);
end.
предыдущие отвечающие - дебилы
var i integer; summ integer; n: integer; k: integer;
begin
write ("type n in: ");
readln (n);
i := 1;
for k := 1 to n do i := i * 10;
k := i;
summ := 0'
while k < i * 10 do begin
summ := summ + k;
inc (k);
end;
writeln ("summ = ", summ);
end.
предыдущие отвечающие - дебилы
Ответ от Artem[эксперт]
Var n,i:integer;
begin
While i<5 do begin
i:=i+1;
n:=n+i;
end;
End.
Var n,i:integer;
begin
While i<5 do begin
i:=i+1;
n:=n+i;
end;
End.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Решите задачу на Паскале: "Найти сумму всех n-значных чисел (1<=n<=4)".