Выполнить домашнее задание используя цикл while:

 Ввести с клавиатуры число. Увеличивать переменную i до тех пор, пока она не станет равна введенному числу;

 Программа рассчитывает сумму цифр введенного пользователем числа.

Домашнее задание

1) var i, n: Integer;

begin

i:=0;

writeln ('Введите число');

readln (n);

while in do

begin

Inc (i);

writeln (i);

end;

end.

2) var i, n, x, count: Integer;

begin

writeln ('Введите кол-во цифр');

readln (n);

for i:=1 to n do

begin

writeln ('Введите ', i,' число');

readln (x);

Inc (count, x);

end;

writeln ('Сумма чисел: ', count);

end.