Написать программу, которая проверяет, является ли введенная с клавиатуры строка дробным числом. На Паскале
Написать программу, которая проверяет, является ли введенная с клавиатуры строка дробным числом.
На Паскале
Гость
Ответ(ы) на вопрос:
Гость// Программа на паскале
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
Не нашли ответ?
Похожие вопросы