Блок схема и листинг программы в приложениях. PROGRAM SUM_ZNAK; var n, i, sum: integer; begin Read(n); sum:=0; while (n > 0) do begin sum := sum+1; n := n div 10; end; Writeln(sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
