Задача 6 Урок 18
Primary tabs
Задача 6 Урок 18Пользователь вводит в консоль строку вида:
Имя 123
-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;
.
var a,code,i: integer; s,b,n: string; begin writeln('enter your name and score'); readln(s); n:=''; b:=''; for i:=1 to length(s) do begin val(s[i], a, code); if (s[i]<>' ') then if (code=0) then //цифры записываем в "b" b:=b+s[i] else n:=n+s[i]; //буквы записываем в "n" val(b, a); end; write(n,'__',a); readln(); end.
Вывод консоли:
enter your name and score Vovan 1500 Vovan__1500
- Log in to post comments
- 233 reads