Срочно! Программа в паскале, через CHAR (Не STRING) !
Вводится строка символов, найти сумму и количество введенных цифр.
Вводится строка символов, найти сумму и количество введенных цифр.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.