Проверить, является ли введенная с клавиатуры строка двоичным числом - Pascal ABC

  1. Написать программу которая проверяет является ли введенная с клавиатуры строка двоичным числом.


textual

Код к задаче: «Проверить, является ли введенная с клавиатуры строка двоичным числом - Pascal ABC»

var s:string;
    n,i:byte;
begin
writeln('Введите строку');
readln(s);
n:=length(s);
i:=1;
while (i<=n) and (s[i]in ['0','1']) do inc(i);
if i>n then writeLn('Это двоичное число')
else writeLn('Это не двоичное число');
end.

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

6   голосов, оценка 3.500 из 5



Похожие ответы
  1. Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы

  1. 13.Составить алгоритм и написать решение задачи на Паскале: Проверить, принадлежит ли точка одному из отрезков (2, 5) и [6,5, 19). Координата точки вводится пользователем с клавиатуры.Помогите пожалуйста!!

  1. Напишите программу. В массиве слов найти пару слов,из которых одно является обращением другого.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь

  1. Составить программу, которая вводит с клавиатуры произвольный символ, вычисляет его десятичный код в кодовой таблице и определяет, является ли данный символ буквой русского алфавита, буквой латинского алфавита или цифрой.

  1. Является ли число 6-значтным и выполняется ли следующие условие: сумма первой и четвертой цифр равна сумме второй и пятой и равна сумме третей и шестой

  1. Дано натуральное число n (n 1999). Определить, является ли оно палиндромом («перевертышем»), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 0440. Подсказка. Так как число четырехзначное, то переменная оператора For изменяется от 1 до 4. В переменной с именем m хранится «остаток» числа, в первоначальный момент времени он равен введенному числу. В переменной с именем r формируем значение числа – «перевертыша». Основными операциями являются: r:=10*r + m mod 10 (добавление очередной цифры к числу «перевертышу») и m:=m div 10 (изменение проверяемого числа). Изменения переменных i, m и r см. в таблице.imr–3994013990*10+3994 mod 10=0+4=42394*10+399 mod 10=40+9=493349*10+39 mod 10 =490+9=49940499*10+3 mod 10=4990+3=4993

  1. вводит натуральное число n выводит слово 'yes' если число является степенью 2 иначе 'no'

  1. вводит трехзначное число и проверяет является ли суммая его цифр равная 9

  1. Определить, является ли заданная целая квадратная матрица шестого порядка симметричной (относительно главной диагонали).