Составить блок схему 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.

romkagamernumbp0bv1q    2   13.05.2019 08:29    13