Please , Help строчки...
Написати програму, яка перевіряє чи введене з клавіатури число двійкове. Вивести результат та введене число на екран.
(українська мова)
__________________________________________________________________
Написать программу, которая проверяет введенную с клавиатуры число двоичное. Вывести результат и введенное число на экран.
(русский язык)
(українська мова)
__________________________________________________________________
Написать программу, которая проверяет введенную с клавиатуры число двоичное. Вывести результат и введенное число на экран.
(русский язык)
Цитата: vanka_333
Написать программу, которая проверяет введенную с клавиатуры число двоичное.
(русский язык)
А вот у меня как-то сомнения... :)
По сабжу - что-то типа:
Код:
program TestBinaryInput;
uses Crt;
var
s: string;
is_correct: boolean;
i: integer;
begin
ClrScr;
ReadLn(s);
is_correct := true;
for i := 1 to Length(s) do
begin
if (s <> '0') and (s <> '1') then
begin
is_correct := False;
break;
end;
end;
if is_correct then WriteLn(s + ' is a correct binary number.') else WriteLn(s + ' is not a correct binary number.');
ReadLn;
end.
uses Crt;
var
s: string;
is_correct: boolean;
i: integer;
begin
ClrScr;
ReadLn(s);
is_correct := true;
for i := 1 to Length(s) do
begin
if (s <> '0') and (s <> '1') then
begin
is_correct := False;
break;
end;
end;
if is_correct then WriteLn(s + ' is a correct binary number.') else WriteLn(s + ' is not a correct binary number.');
ReadLn;
end.
Спасибо большое!!!! Очень благодарен!!!!!!!