Question

Пожалуйста помогите с написанием программы в Паскаль. Найти сумму двухцифровых чисел и напечатать их, сумма цифр которых меньше за число 7.

Answer 1

Ответ:

Var

a, b, c :integer;

Begin

Write('Vvedite a, b'); Readln(a, b);

C:=a+b; if c<7 then write('Summa =', c) else write('Summa bolshe 7');

READLN;

END.

Объяснение:

Я помог!?

Answer 2

Конечно, вот пример программы на Паскале, который выполняет задачу по поиску и печати суммы двухцифровых чисел, у которых сумма цифр меньше 7:

pascalCopy code
program SumOfNumbers;

var
  num1, num2, sum, digit1, digit2: integer;

begin
  writeln('Введите два двузначных числа:');
  readln(num1);
  readln(num2);

  digit1 := num1 mod 10;  // Получаем последнюю цифру первого числа
  digit2 := num1 div 10;  // Получаем первую цифру первого числа
  sum := digit1 + digit2;

  if sum < 7 then
    writeln('Первое число: ', num1, ' (Сумма цифр: ', sum, ')');

  digit1 := num2 mod 10;  // Получаем последнюю цифру второго числа
  digit2 := num2 div 10;  // Получаем первую цифру второго числа
  sum := digit1 + digit2;

  if sum < 7 then
    writeln('Второе число: ', num2, ' (Сумма цифр: ', sum, ')');
end.

Программа сначала запрашивает два двузначных числа от пользователя. Затем для каждого числа вычисляется сумма цифр, и если эта сумма меньше 7, то число и его сумма цифр выводятся на экран.