40 составьте блок схему дано целое число n (> 0) используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр (n=63) program n_18; var n,sum,q: integer; begin write (' n = '); readln (n); writeln; q: = 0; sum: =0; while n> 0 do begin inc (q); sum: = sum + n mod 10; n: = n div 10; end; writeln ('количество цифр: ' , q); writeln (' сумма цифр: 'sum); end.

ангел769    1   24.05.2019 09:33    1