Question

Записать решение задач в Pascal Abc:1. Определить есть ли в составе трехзначного числа одинаковые цифры.2. Вводятся два числа,определить одного они знака или нет.3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.4. Определить является ли автобусный билет счастливым.5. Является ли год с порядковым номером х високосным или нет.

Answer 1

Задача 1. 
var
  a,b,c,x: integer;
begin
  readln(x);
  a:= x mod 10;
  x:= x div 10;
  b:= x mod 10;
  x:= x div 10;
  c:= x;
  if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет');
end.

Задача 2.
var 
  a,b: integer;
begin 
  readln(a,b); 
  If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln('да') else writeln('нет');
end.

Задача 3.
var
  x: real;
begin
  readln(x);
  if (x=<5) and (x>=1) then writeln('да') else writeln('нет');
end.

Задача 4. 
Справка:
Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних.
var 
  x: integer;
begin
  readln(x); 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s1:= s1+d 
  end; 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s2:= s2+d 
  end; 
  if s1=s2 then writeln('да') else writeln('нет')
end.

Задача 5.
Справка:
год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. 
var 
  x: integer;
begin 
  readln(x); 
  If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then
  writeln('да') else writeln('нет')
end.

Answer 2

Решение задач в Pascal ABC

1. Определить есть ли в составе трехзначного числа одинаковые цифры.

Для определения наличия одинаковых цифр в трехзначном числе можно использовать следующий алгоритм: - Получить трехзначное число от пользователя. - Разделить число на отдельные цифры. - Сравнить цифры на равенство.

Пример кода на Pascal ABC: ``` var num, digit1, digit2, digit3: integer; begin write('Введите трехзначное число: '); readln(num); digit1 := num div 100; digit2 := (num div 10) mod 10; digit3 := num mod 10; if (digit1 = digit2) or (digit1 = digit3) or (digit2 = digit3) then writeln('В числе есть одинаковые цифры') else writeln('В числе нет одинаковых цифр'); end. ```

[[SOURCE #1]]

2. Вводятся два числа, определить одного они знака или нет.

Для определения знака чисел можно использовать следующий алгоритм: - Получить два числа от пользователя. - Проверить знаки чисел на равенство.

Пример кода на Pascal ABC: ``` var num1, num2: integer; begin write('Введите первое число: '); readln(num1); write('Введите второе число: '); readln(num2); if (num1 > 0) and (num2 > 0) or (num1 < 0) and (num2 < 0) then writeln('Числа имеют одинаковый знак') else writeln('Числа имеют разные знаки'); end. ```

[[SOURCE #2]]

3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интервал.

Для определения принадлежности числа отрезку можно использовать следующий алгоритм: - Получить число х от пользователя. - Проверить, находится ли число х в пределах от 1 до 5 включительно.

Пример кода на Pascal ABC: ``` var x: integer; begin write('Введите число x: '); readln(x); if (x >= 1) and (x <= 5) then writeln('Число x принадлежит отрезку от 1 до 5') else writeln('Число x не принадлежит отрезку от 1 до 5'); end. ```

[[SOURCE #3]]

4. Определить является ли автобусный билет счастливым.

Для определения счастливого автобусного билета можно использовать следующий алгоритм: - Получить номер билета от пользователя. - Разделить номер билета на две части. - Просуммировать цифры в каждой части. - Сравнить суммы.

Пример кода на Pascal ABC: ``` var ticket, part1, part2, digit: integer; begin write('Введите номер билета: '); readln(ticket); part1 := ticket div 1000 + (ticket div 100) mod 10 + (ticket div 10) mod 10; part2 := (ticket div 100) mod 10 + (ticket mod 100) div 10 + ticket mod 10; if part1 = part2 then writeln('Билет счастливый') else writeln('Билет несчастливый'); end. ```

[[SOURCE #4]]

5. **Является ли год с порядковым номером х вис