Предмет: Информатика,
автор: 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.
Похожие вопросы
Предмет: Русский язык,
автор: vassimgot
Предмет: Химия,
автор: perkovamarina458
Предмет: Информатика,
автор: izumovartem1
Предмет: Литература,
автор: Аноним
Предмет: Химия,
автор: roma555