Question

Помогите решить задачу в PascalABC 1)Даны два числа. Найти сумму их десятков и сумму их единиц. 2)Дано число. Проверить, делится ли оно на 2, на 3 или на 5. 3)Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке.

Answer 1

1) var a,b:integer;
begin
readln(a,b);
writeln('Сумма единиц: ',a mod 10+b mod 10);
writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);
end.

2)var a:integer;
begin
readln(a);
if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');
if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');
end.

3)var a,b,c:integer;
begin
readln(a);
c:=a;
while a>0 do begin
  b:=10*b+a mod 10;
  a:=a div 10;
end;
writeln(c-b);
end.

Answer 2

Решение задачи в PascalABC

1) Даны два числа. Найти сумму их десятков и сумму их единиц.

program Task1;

var
  a, b, sumOfTens, sumOfUnits: integer;

begin
  // Ввод чисел
  writeln('Введите первое число:');
  readln(a);
  writeln('Введите второе число:');
  readln(b);

// Вычисление суммы десятков
  sumOfTens := (a div 10) + (b div 10);

// Вычисление суммы единиц
  sumOfUnits := (a mod 10) + (b mod 10);

// Вывод результатов
  writeln('Сумма десятков: ', sumOfTens);
  writeln('Сумма единиц: ', sumOfUnits);

readln;
end.

2) Дано число. Проверить, делится ли оно на 2, на 3 или на 5.

program Task2;

var
  num: integer;

begin
  // Ввод числа
  writeln('Введите число:');
  readln(num);

// Проверка деления на 2, 3 и 5
  if (num mod 2 = 0) then
    writeln('Число делится на 2');
  if (num mod 3 = 0) then
    writeln('Число делится на 3');
  if (num mod 5 = 0) then
    writeln('Число делится на 5');

readln;
end.

3) Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке.

program Task3;

var
  num, reversedNum, difference: integer;

begin
  // Ввод числа
  writeln('Введите пятизначное число:');
  readln(num);

// Запись числа в обратном порядке
  reversedNum := (num mod 10) * 10000 + ((num div 10) mod 10) * 1000 + ((num div 100) mod 10) * 100 + ((num div 1000) mod 10) * 10 + (num div 10000);

// Вычисление разности
  difference := num - reversedNum;

// Вывод результата
  writeln('Разность: ', difference);

readln;
end.

Это примеры решений задач на языке PascalABC. Вы можете скопировать код и запустить его в среде разработки PascalABC, чтобы увидеть результаты.