Задача 4 Урок 17
Primary tabs
Пользователь вводит в консоль строку вида:
Имя 123-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;
var s, str, s2: string; i, o, int, l, i1: integer; begin write('Введите строку: '); readln(s); l := length(s); for i := 1 to l do if i1 = 0 then if s[i] <> ' ' then str += s[i] else i1 := 1 else if s[i] <> ' ' then s2 += s[i]; val(s2, int, o); writeln(str, ' ', int); readln(); end.
- Log in to post comments
- 1029 reads