Question

Напишите на паскале, пожалуйста: Напечатать все трехзначные числа от А до В, у которых первая и третья цифры одинаковые.

Answer 1

Var
a,b,i:integer;
begin
readln(a,b);
for i:=a to b do
if (i mod 10= i div 100) and (i div 100<>0) then
writeln(i);
end.

Answer 2

Я могу помочь вам с написанием кода на Паскале. Ваша задача состоит в том, чтобы напечатать все трехзначные числа от А до В, у которых первая и третья цифры одинаковые. Вот возможный вариант решения:

program print_numbers;
var
  A, B, i, d1, d2, d3: integer;
begin
  readln(A, B); // считываем границы интервала
  for i := A to B do // перебираем все числа от A до B
  begin
    d1 := i div 100; // первая цифра числа i
    d2 := (i div 10) mod 10; // вторая цифра числа i
    d3 := i mod 10; // третья цифра числа i
    if (d1 = d3) and (d1 <> 0) then // если первая и третья цифры одинаковые и не равны нулю
      writeln(i); // выводим число i
  end;
end.

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад помочь.