Другие языки программирования и технологии

Встретился := ,а ожидался оператор/ PascalABС

program m_1;
var a, b, x, c:real ;
begin
writeln('нахождение наименьшего призёра');
writeln ('Введите 1 го призера ');
readln (a);
writeln ('Введите 2 го призера ');
readln (b);
writeln ('Введите 3 го призера ');
readln (c);
if (a>b) then (x:=a)
else (a<b) then (x:=b
if (x>c) then (x:=x)
else (x<c) then (x:=c)
writeln ('x=',x);



end.
MJ
Merciless Joker
115
x=a и так далее для чего тебе скобки?
Может вот так, но это зависит от алгоритма, так что сам думай.
 program m_1; 

var
a, b, x, c: real;

begin
writeln('нахождение наименьшего призёра');
writeln('Введите 1 го призера ');
readln(a);
writeln('Введите 2 го призера ');
readln(b);
writeln('Введите 3 го призера ');
readln(c);

if a > b then
x := a
else if a < b then
x := b;

if x > c then
x := x {И ЗАЧЕМ ЭТО?}
else if x < c then
x := c;

writeln('x=', x);

end.
_-
_-.d.a.u.l'.-_
98 969
Лучший ответ
Merciless Joker Спасибо , ошибку нашел.
Убери все скобки в условиях.
Добавь к своему вопросу саму задачу, по твоему коду вообще непонятно, что тебе надо сделать. Если смотреть на твой код, то тебе проще написать, что переменная x принимает значение переменной c, и вывод. Чтобы запустилось то, что ты написал, то нужно писать так:
 program test_1; 
var a,b,c,x: real;
begin
readln(a,b,c);
if a > b then
x := a
else
x := b;
if (x < c) or (x > c) then
x := c;
write(x);
end.
Но код, скорее, всё равно неверный, хоть и запускается. Без условия по твоему коду ничего не понять. Условие самой задачи напиши.
И откуда ты взял это?
 Println($' {x} лет самому младшему призеру'); 
В Паскале нет принта, есть write. Да и в скобках после него, у тебя непонятно, что там написано.
Александр П
Александр П
1 381