Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом
Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом
Гость
Ответ(ы) на вопрос:
ГостьVAR
s: String;
i: LongInt;
BEGIN
Read(s);
for i := 1 to Length(s) do
if not((Ord(s[i]) > 47)and(Ord(s[i]) < 58)) then begin
Write(s,' - не является целым число'); Exit;
end;
Write(s,' - целое число');
END.
Не нашли ответ?
Похожие вопросы