Написать программу в турбо паскаль. Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)
Написать программу в турбо паскаль.
Найти сумму всех n-значных чисел (1 ≤ n ≤ 4)
Гость
Ответ(ы) на вопрос:
Гостьvar n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
end.
Не нашли ответ?
Похожие вопросы