Создать программу на Паскале.
10-11 класс
|
Даны
действительные числа х, у, и z. Вычислить
max (x + y + z, xyz).
(только пожалуйста напишите полное решение, а не кусок)
Паскаль АВС:
Program KiberNet01;
uses crt;
var
x,y,z:real;
begin;
write('Введите X ');readln(x);
write('Введите Y ');readln(y);
write('Введите Z ');readln(z);
if (x+y+z)>x*y*z then writeln('Сумма чисел X, Y и Z больше, чем их произведение, и равна ',x+y+z) else writeln ('Произведение чисел X, Y и Z больше, чем их сумма, и равно ',x*y*z);
end.
program p1;
var x,y,z:real;
begin;
readln(x,y,z);
if (x+y+z)>x*y*z then writeln('max=x+y+z') else writeln ('max=xyz');
end.
Вот попробуй это
это что больше вычислить сумма или разность, или я неправильно думаю?так получается слишком легкая задача
Другие вопросы из категории
системах счисления:
Треугольник задан координатами своих вершин.Составить программу вычисления площади треугольника.
Читайте также
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
2.написать программу в паскале
f(x)=2(sin*sin)x+1