Написать программу в турбо паскаль.

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

Question

Даниил

14 октября, 17:10

+1

Ответы (1)

Знаете ответ?

Панюля · Answer 1

Var n, i:integer;

begin

n:=0;

for i:=1 to 4 do

n:=n+i;

writeln (n) ;

readln;

end.

Написать программу в турбо паскаль.Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)