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

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

Question

Максиан

27 сентября, 04:31

+3

Ответы (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)