Question

Pascal Вывести на экран 1 или 0 в зависимости от того, есть ли среди трёх цифр однозначный или трехзначный​

Answer 1

Ответ:

var i,y,x,z,w:integer; begin writeln('i=');readln(i); x:=i div 100; y:=i div 10; z:=y mod 10; w:=i mod 10; if (x=z) or (w=z) or (w=x) then writeln(1) else writeln(0); end.

Answer 2

Для решения этой задачи в Pascal можно использовать следующий код:

pascalCopy code
program CheckDigits;
var
  number: integer;
begin
  writeln('Введите целое число:');
  readln(number);

  if (number >= 0) and (number <= 9) then
    writeln('1') // Однозначное число
  else if (number >= 100) and (number <= 999) then
    writeln('1') // Трехзначное число
  else
    writeln('0'); // Ни однозначное, ни трехзначное число
end.

Этот код сначала считывает целое число с клавиатуры, а затем проверяет, является ли оно однозначным (от 0 до 9) или трехзначным (от 100 до 999). В зависимости от результата, программа выводит "1" или "0".