Введите с клавиатуры число х. Определите, является ли данное число дробным.…

Question

73

Введите с клавиатуры число х. Определите, является ли данное число дробным. Пример ввода: 3,5Пример вывода: Число дробное

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

deepuz · Accepted Answer

46

deepuz

03 сентября 2022

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: