Определить является ли она записью целого числа в восьмеричной системе счисления - Turbo Pascal

Формулировка задачи:

Дана строка символов не содержащая пробелов, определить является ли она записью целого числа в восьмеричной системе счисления.

Код к задаче: «Определить является ли она записью целого числа в восьмеричной системе счисления - Turbo Pascal»

textual
var s:string;
    i:byte;
    f:boolean;
begin
writeln('Ââåäèòå ñòðîêó áåç ïðîáåëîâ');
readln(s);
i:=1;
f:=true;
while (i<=length(s))and f do
if not(s[i] in ['0'..'7']) then f:=false
else i:=i+1;
if f then write('ГќГІГ® Г§Г*ГЇГЁГ±Гј Г·ГЁГ±Г«Г* Гў ÑÑ 8')
else write('ГќГІГ® Г*ГҐ Г§Г*ГЇГЁГ±Гј Г·ГЁГ±Г«Г* Гў ÑÑ 8');
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ