Uses crt; Var i,n,sm:integer; Begin Clrscr; Writeln('Введите число N: '); Readln(n); For i:=1 to n do Sm:=sm+i; Writeln('Сумма цифр числа ',n,' равно ',sm); Readkey; End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
