Question

Помогите пожалуйста! Написать программу, выводящую на экран четные двухзначные числа от 25 до 85, сумма цифр входящих, в состав которых равна 7. На Паскале

Answer 1

Ответ:

Удачи:)

Объяснение:

begin

for var i:=25 to 85 do

begin

if (i mod 2=0) and ((i div 10)+(i mod 10) = 7) then

begin

writeln(i);

end;

end;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает вашу задачу:

pascalCopy code
program EvenNumbers;

var
  number, digit1, digit2, digitSum: integer;

begin
  writeln('Четные двухзначные числа от 25 до 85, сумма цифр которых равна 7:');

  for number := 25 to 85 do
  begin
    if (number mod 2 = 0) then
    begin
      digit1 := number div 10;
      digit2 := number mod 10;
      digitSum := digit1 + digit2;

      if (digitSum = 7) then
        writeln(number);
    end;
  end;
end.

Эта программа использует цикл for, чтобы перебрать все числа от 25 до 85. Для каждого числа, программа проверяет, является ли оно четным (number mod 2 = 0). Затем программа разделяет число на две цифры (digit1 := number div 10 и digit2 := number mod 10) и суммирует их (digitSum := digit1 + digit2).

Если сумма цифр равна 7, то программа выводит это число на экран. В итоге, программа выведет все четные двухзначные числа от 25 до 85, сумма цифр которых равна 7.