Program fff; var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
