Урок 17 (Решенная задача номер 4)
Primary tabs
Урок 17 (Решенная задача номер 4)
Пользователь вводит в консоль строку вида:
Имя 123-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;
var s, name, g: string; bal, i, c : integer; begin s := 'Roman 5'; for i := 1 to length(s) do begin if (s[i] <> '') and (s[i] > '9') then name := name + s[i]; if (s[i] >= '0') and (s[i] <= '9') then g := g + s[i]; if (i = length(s)) then val(g, bal, c); end; writeln('imy ', name); writeln('colicestvo ballov - ', bal); end.
- Log in to post comments
- 2021 reads
vedro-compota
Mon, 10/12/2020 - 18:32
Permalink
оформите решение в виде
оформите решение в виде подпрограммы
_____________
матфак вгу и остальная классика =)
Romakip
Tue, 10/13/2020 - 15:58
Permalink
Исправлено
vedro-compota
Sun, 10/18/2020 - 21:12
Permalink
меняем имя процедуры на
меняем имя процедуры на понятное
_____________
матфак вгу и остальная классика =)
Romakip
Mon, 10/19/2020 - 16:34
Permalink
var s: string;