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

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

Question

Тоня

24 сентября, 06:13

+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)