число (в цикле).
Program StringInt;
(*Проверка является ли строка целым числом*)
Var
st: string[20]; {строка текста}
n:integer; {номер проверяемого символа}
begin
writeln ('Введите число и нажмите Enter');
write('-> '); readln(st);
n:=1;
while (n <= Length(st)) and
((st[n] >= '0') and (st[n] <= '9'))
do n := n+1;
write('Введённая строка ');
if n < Length(st)
then write ('не ');
Writeln('является целым числом');
Writeln ('Для завершения нажмите Enter');
Readln;
end.
#include
#include
void main()
// Проверка, является ли строка целым числом
{
char st[20]; // строка
int i; // номер проверяемого символа строки
printf("\n Введите число и нажмите Enter \n");
printf ("-> ");
scanf ("%s", st);
i = 0;
while ((st[i] >= '0') && (st[i] <= '9'))
i++;
printf("/n Введённая строка ");
if (st[i]) // st[i] - \0, если введены только цифры
printf("не ");
printf("является целым числом.");
printf("\n\nДля завершения нажмите Enter");
getch();
}
C / С++
Pascal
И+ПРГ