Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Помогите найти ошибку в задаче

Автор: MrRobot 13.2.2011, 12:19

Код


Uses WinCrt;
Var a:real;
begin
For a:=100 to 999 do begin
if (a-((a div 100)*100+(a div 100)*10))=(a div 100)or (a-((a div 100)*100+(a div 100)*10))=(a div 10)or
(a div 100)=(a div 10) else begin write( a);
end;
end;
end.

Нужно составить программу вывода трехзначных чисел, в десятичной записи которых нет одинаковых цифр
Ошибка вылезает в выделенной строчке не знаю в чем дело помогите плиз smile

M
THandle

Модератор: используйте подсветку кода!

Автор: superVad 13.2.2011, 13:01

Добавь в программу 3 переменных - можно даже чар. И присваивай им цифры, а потом сравнивай.
Будет на много нагляднее.
А так я не нахожу в себе сил в этом винегрете разбираться:

Код


if (a-((a div 100)*100+(a div 100)*10))=(a div 100)or (a-((a div 100)*100+(a div 100)*10))=(a div 10)or(a div 100)=(a div 10)
else //!!!

У тебя сразу идет else без then!

И юзай теги для оформления кода.

И обычно принято писать текст ошибки.