Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!!!!!)!!!!!!!!!!
Ответ
Автор - igorvoloc
program picaso; uses crt; var s:string; x,cod:integer; begin clrscr; write('Vedite cislo: ');readln(s); val(s[1],x,cod); if x < 6 then writeln('verno!!! :',x,' < 6'); readkey; end.