Определить является ли она записью целого числа в восьмеричной системе счисления - 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.
                        

Оцени полезность:

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

Похожие ответы