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.
Другие языки программирования и технологии
Встретился := ,а ожидался оператор/ PascalABС
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.
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. Да и в скобках после него, у тебя непонятно, что там написано.Похожие вопросы
- C++ поразрядные операторы
- Проблема с программой в Pascal ABC,Встречено ';',а ожидалось ':'. Если менять, то вылетает ещё ошибка с if
- Вопрос про оператор return в С++.
- Сколько, примерно, операторов имеют языки программирования?
- Справочник по операторам С++.
- Вопрос программистам и операторам станков с ЧПУ.
- Процедуры и операторы это одно и тоже?
- Подскажите кто помнит QB (Бэйсик)Что значат операторы: DIM, FOR...NEXT, STEP, GOTO...
- Оператор FOR Напечатать «*» треугольники.
- помогите с условным оператором в Pascal