// Программа на паскале var s: string; k, i: integer; begin readln(s); k := pos(',', s); if (k < 2) or (k = length(s)) then writeln('No') else begin for i := 1 to length(s) do if (i <> k) and ((s[i] < '0') or (s[i] > '9')) then begin writeln('No'); exit end; writeln('Yes'); end; end.
Примеры работы программы: Ввод Вывод 1,6 Yes 123, No ,49 No 0,758 Yes
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
