C++. Символы и строки. Задача 10

Написать программу, которая проверяет, является ли введенная с клавиатуры строка целым числом.

Решение:

a:='1234567890';
Writeln('Vvedite stroky');
Readln(st);
b:=length(st);
ind:=0;
For i:=1 to b do begin
   if pos(st[i],a)<>1 then begin
     Writeln('Vvedennaia stroka - ne celoe chislo');
     ind:=1;
     break;
   end;
end;
if ind=0 then Writeln('Vvedennaia stroka - celoe chislo');

 

Понравилась статья? Поделиться с друзьями:
Kvodo.ru
Добавить комментарий

;-) :| :x :twisted: :smile: :shock: :sad: :roll: :razz: :oops: :o :mrgreen: :lol: :idea: :grin: :evil: :cry: :cool: :arrow: :???: :?: :!: