program xyz; var x,y,z,a,b,c,min:real; begin read (x,y,z); a:=x+y+z; b:=x*y*z; c:=x/y/z; min:=a; if (b min:=b else if c min:=c; writeln ('минимальное значение равно ',min); end.
Помогите вылазит неожиданны символ ' ' в 10 строке , что делать , где ошибка.
Вы не дописали строку 11, где неверно указали оператор if.
Как должно быть правильно:
if условие then действие
else действие;
Если вы не знаете то, как дописать if, то покажите или напишите условие задачи, помогу Вам решить до конца
Объяснение:
Правильное решение задачи:
program xyz;
var x,y,z,a,b,c,min:real;
begin
read (x,y,z);
a:=x+y+z;
b:=x*y*z;
c:=x/y/z;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln ('минимальное значение равно ', min);
end.
0 votes Thanks 1
softikhomirova
Написать и прикрепить программу на Паскаль. С клавиауры заданы три числа X, Y, Z. Найти минимальное значение из их произведения XYZ, суммы X+Y+Z и результата деления X/Y/Z.
Answers & Comments
Ответ:
Вы не дописали строку 11, где неверно указали оператор if.
Как должно быть правильно:
if условие then действие
else действие;
Если вы не знаете то, как дописать if, то покажите или напишите условие задачи, помогу Вам решить до конца
Объяснение:
Правильное решение задачи:
program xyz;
var x,y,z,a,b,c,min:real;
begin
read (x,y,z);
a:=x+y+z;
b:=x*y*z;
c:=x/y/z;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln ('минимальное значение равно ', min);
end.