Question

Составьте программу решения задачи в Паскаль. Даны 2 целых числа. Если оба чётные , то заменить каждое на 10, в противном случае, присвоить каждому их сумму. СРОЧНО!!!​

Answer 1

Ответ:

Во вложении.

Объяснение:

Answer 2

Программа на языке Pascal для решения данной задачи может выглядеть следующим образом: ```pascal program task; var num1, num2: integer; begin writeln('Введите два целых числа:'); readln(num1, num2); if (num1 mod 2 = 0) and (num2 mod 2 = 0) then begin num1 := 10; num2 := 10; writeln('Оба числа четные. Заменяем каждое на 10.'); end else begin writeln('Не оба числа четные. Присваиваем каждому их сумму.'); num1 := num1 + num2; num2 := num1; end; writeln('Результат:'); writeln('Первое число:', num1); writeln('Второе число:', num2); readln; end. ``` Пользователю будет предложено ввести два целых числа. Затем программа проверит, являются ли оба числа четными. Если это так, то каждое из чисел будет заменено на 10. В противном случае, оба числа будут заменены на их сумму. Наконец, программа выведет результат на экран.