Предмет: Информатика,
автор: Maria7788
Введите с клавиатуры число х.Определите, является ли данное число дробным.
Пример ввода:3.5
Пример вывода:Число дробное
Ответы
Автор ответа:
0
Var s:string; i,k:integer;
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.
Интересные вопросы
Предмет: Математика,
автор: 26svaleriya
Предмет: Русский язык,
автор: lehasub2008
Предмет: Другие предметы,
автор: yogurtopson
Предмет: История,
автор: Sophie123