Дана программа на языке Паскаль: program а3; var х, у, z: real; begin writeln ('Введите три числа'); readln (х, у, z); if (х
Дана программа на языке Паскаль: program а3; var х, у, z: real; begin writeln ('Введите три числа'); readln (х, у, z); if (х
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
y) and (y > z) then
writeln (x + y)
else if (x < y) and (y < z) then
writeln (y - z)
else
writeln (z * x);
end.
Что делает данная программа: она считывает три числа с клавиатуры и в зависимости от того, какие из них больше или меньше других, выводит на экран результат некоторых арифметических операций. Если первое число больше второго и второе больше третьего, программа выводит сумму первого и второго чисел. Если первое число меньше второго и второе меньше третьего, программа выводит разность второго и третьего чисел. Во всех остальных случаях программа выводит произведение третьего и первого чисел.