Question

Написать на паскале,пожалуйста помогите ооочень срочно нужно!!!! ДЗ. Задача 1:  Вводится  числа a,b,c,d. Вывести сумму ab + cd.   ДЗ. Задача 2:  Вводится четырёхзначное число (abcd). Вывести сумму ab + cd.   Алгоритм решения задачи:  В данном случае  известна разрядность числа. Необходимо извлечь цифры каждого разряда.    Для извлечения цифры из старшего разряда, надо число нацело поделить на 1000. (Или найти остаток от деления на 1000.) Для извлечения второго (по старшинству) разряда, сначала делим число на 100, далее избавляемся от первого разряда, найдя остаток от деления на 10. Третья цифра извлекается также как вторая за исключением того, что делить нацело надо на 10. Ну а четвертая цифра извлекается как остаток от деления исходного числа на 10   ДЗ. Задача 3:  Вводится число. Преобразовать его в другое число, цифры которого будут следовать в обратном порядке по сравнению с введенным числом.

Answer 1

var a, b, c, d: integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);     
writeln('ab+cd=',a*b,'+',c*d,'=', a*b+c*d);  
readln;
end.

Answer 2

Конечно, я могу помочь написать код на Pascal для решения этих задач. Вот решения для всех трех задач:

Задача 1:

scssCopy code
program SumOfProducts;

var
  a, b, c, d, sum: integer;

begin
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  write('Введите c: ');
  readln(c);
  write('Введите d: ');
  readln(d);

  sum := a*b + c*d;

  writeln('Сумма ab + cd = ', sum);
end.

Задача 2:

lessCopy code
program SumOfDigits;

var
  abcd, a, b, c, d, sum: integer;

begin
  write('Введите четырехзначное число abcd: ');
  readln(abcd);

  a := abcd div 1000;
  b := (abcd div 100) mod 10;
  c := (abcd div 10) mod 10;
  d := abcd mod 10;

  sum := a*b + c*d;

  writeln('Сумма ab + cd = ', sum);
end.

Задача 3:

arduinoCopy code
program ReverseNumber;

var
  n, reversed, digit: integer;

begin
  write('Введите число: ');
  readln(n);

  reversed := 0;
  while n > 0 do
  begin
    digit := n mod 10;
    reversed := reversed * 10 + digit;
    n := n div 10;
  end;

  writeln('Число с обратным порядком цифр: ', reversed);
end.

Надеюсь, это поможет вам выполнить задание!