VPF::Помогите найти ошибку в задаче

MrRobot

Дата 13.2.2011, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.2.2011

Репутация: нет
Всего: нет

Код


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

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

Это сообщение отредактировал(а) THandle - 13.2.2011, 13:10

superVad

Дата 13.2.2011, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: нет
Всего: 15

Добавь в программу 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!

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

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

Это сообщение отредактировал(а) superVad - 13.2.2011, 13:03

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »