Сортировка - ошибка при проверке условия

@Svyatoslav7 · Регистрация: 19.08.2012

Author24 — интернет-сервис помощи студентам

Pascal

program algo_19;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа(a,b,c)');
 readln(a,b,c);
  clrscr;
 
   writeln('a:= ',a,' b:= ',b,' c:= ',c);
   
    if (a<b) and (b<c) then  begin
     writeln('Числа упорядочиние по возростанию ');
    writeln('A:= ',a*2,' B:= ',b*2,' C:= ',c*2)
    else
    writeln('Ошибка!');
    end;
 
  
end.

выдает ошибку там где else

Добавлено через 31 минуту
хелп)

magirus · 21.02.2013, 22:17

Svyatoslav7,
Вы уже полгода на форуме, - язык форума - русский.

@Svyatoslav7 · 21.02.2013, 22:26 **[ТС]**

да знаю))) мне тяжело ))) на русском)

Добавлено через 7 минут
кто то поможет???

HighPredator · 21.02.2013, 22:30

Сообщение от Svyatoslav7

мне тяжело ))) на русском)

И что дальше? За вами думаете очень просто в порядок все приводить?

Сообщение от Svyatoslav7

выдает ошибку там где else

Так должно быть:

Pascal

if (a<b) and (b<c) then  begin
     writeln('Числа упорядочиние по возростанию ');
    writeln('A:= ',a*2,' B:= ',b*2,' C:= ',c*2);
  end
    else
    writeln('Ошибка!');

@Svyatoslav7 · 21.02.2013, 22:35 **[ТС]**

HighPredator,
Спасибо)))

magirus Почетный модератор 28046 / 15779 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	21.02.2013, 22:17	2
	Svyatoslav7, Вы уже полгода на форуме, - язык форума - русский. 0

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	21.02.2013, 22:26 [ТС]	3
	да знаю))) мне тяжело ))) на русском) Добавлено через 7 минут кто то поможет??? 0

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	21.02.2013, 22:35 [ТС]	5
	HighPredator, Спасибо))) 0