Question

Напишите программы на PascalABC

Answer 1

                                          PascalABC.NET                                           

Задание 1:

• ###
• 'Введите два числа X и Y:'.Pr;
• var (X, Y) := RI2;
• var minXY := min(X, Y);
• if X = minXY then X := 0;
• if Y = minXY then Y := 0;
• $'Результат: {X} {Y}'.Pr

Задание 2:

• ###
• 'Введите a и b:'.Pr;
• var (a, b) := RI2;
• 'Введите три числа:'.Pr;
• $'Результат: {RAI(3).Wh(x → x in a..b).Str}'.Pr