помогите срочно пожалуйста
10-11 класс
|
и составить программу
var
x,y,z:integer;
begin
writeln('Введи x');
readln(x);
writeln('Введи y');
readln(y);
writeln('Введи z');
readln(z);
if (x+y+z)>(x*y*z)then writeln ('x+y+z больше чем xyz и равно: ',x+y+z)
else writeln ('xyz больше чем x+y+z и равно: ',x*y*z)
end.
эта задача с файлами?
жди, сейчас сделаю
Другие вопросы из категории
ны треугольника; α, β, γ — углы (в градусах); h — высота, опущенная на сторону с; S — площадь; Р — периметр треугольника. По трем заданным параметрам a, b ,S, вычислить все остальные.Как это записать в паскале. Помогите пожалуйста
Найти сумму отрицательных элементов на побочной диагонали матрицы А(8,8), а также произведение ненулевых элементов в области выше главной диагонали.
массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do A[i]:=i;
for i:=10 downto 0 do begin
k:=A[10-i];
A[10-i]:=A[i];
A[i]:=k;
end;
Чему будут равны элементы этого массива?