Написать программу на Pascal с оператором while и do.

Найти сумму всех n-значных чисел, если 1 ≤ n ≤ 4.

Нужно сложить все числа, у которых ровно \( n \) цифр. Для \( n=1 \) это числа от \( 1 \) до \( 9 \), для \( n=2 \) — от \( 10 \) до \( 99 \), и так далее.

Программа на Pascal:
program SumNDigitNumbers;
var
n, k: integer;
first, last, i, sum: longint;
begin
readln(n);

if (n < 1) or (n > 4) then
writeln('n должно быть от 1 до 4')
else
begin
first := 1;
k := 1;

while k < n do
begin
first := first * 10;
k := k + 1;
end;

last := first * 10 - 1;
sum := 0;
i := first;

while i <= last do
begin
sum := sum + i;
i := i + 1;
end;

writeln(sum);
end;
end.

0 0 Пожаловаться