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

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

Question

Клавдия

9 июня, 23:29

+4

Ответы (1)

Знаете ответ на вопрос?

Колюня · Answer 1

Var

i, sum : integer;

begin

sum : = 0;

for i : = 1 to 9999 do

sum : = sum + i;

write ('Результат: ', sum) ;

end.

Написать программу в Pascal, с оператором while и doНайти сумму всех n-значных чисел, если 1 ≤ n ≤ 4