Выполнить домашнее задание используя цикл 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.