не стал парится с Апсалютными числами, поставил реал, округлил до сотых, но вот другая проблема, написал такую прогу:
program pass;
var a,b,c,d,e,f,g:string;
p: string;
label 1;
begin
writeln('Эта программы покажет вам мои пороли, если вы правильно ответите на 3 вопроса.');
writeln('Готовы?(Введите "да" или "нет").');
readln(a);
if (a='да') then writeln('Дата моего рождения в формате ДД/ММ/ГГГГ') else writeln('Как хотите.');
if (a='нет') then goto 1;
readln(b);
if (b='25.12.1993') then writeln('Правильно, теперь введите один из моих ников.') else writeln('Ошибка. Прощайте.');
if not (b='25.12.1993') then goto 1;
readln(c);
if (c='Walkman') or (c='walkman')
or (c='Dreamer') or (c='dreamer')
or (c='X3M-NRG') or (c='x3m-nrg')
then writeln('Правильно, теперь назовите мой любимый инструмент.')
else writeln('Ошибка. Прощайте.');
if not (c='Walkman') or (c='walkman')
or (c='Dreamer') or (c='dreamer')
or (c='X3M-NRG') or (c='x3m-nrg')
then goto 1;
readln(d);
if (d='Create_thread') or (d='Create_thread')
then write('Правильно, но это ещё не всё, не думайте что всё так просто, назовите мою любимую актрису(на английском пожалуйста).')
else writeln('Ошибка. Прощайте.');
if not (d='Create_thread') or (d='Create_thread')
then goto 1;
readln(e);
if (e='Emma Wotson')
then writeln('Правильно!!!Последний(это правда) вопрос. Какая фамилия у человека составившего учебник по алгебре для 7, 8, 9 класса?')
else writeln('Ошибка. Прощайте.');
if not (e='Emma Wotson')
then goto 1;
readln(f);
if (f='Мордкович') then writeln('Молодец, все слои защиты пройдены, вот мои ники и пароли:') else writeln('Ошибка. Прощайте.');
if not (f='Мордкович') then goto 1;
if (f='Мордкович') then writeln('"WebMoney"');
if (f='Мордкович') then writeln('код: 099087336262');
if (f='Мордкович') then writeln('пароль: ***');
if (f='Мордкович') then writeln('код доступа к фаилу ключей:***');
if (f='Мордкович') then writeln('"E-mail"');
if (f='Мордкович') then writeln('login:sergey1993@bk.ru');
if (f='Мордкович') then writeln('pass:***');
if (f='Мордкович') then writeln('"Мой сайт"');
if (f='Мордкович') then writeln('login:young-gamedev');
if (f='Мордкович') then writeln('pass:***');
if (f='Мордкович') then writeln('"GTAMaps"');
if (f='Мордкович') then writeln('login:X3M-NRG');
if (f='Мордкович') then writeln('pass:***');
if (f='Мордкович') then writeln('Есть ещё, но я их забыл.:-(');
if (f='Мордкович') then writeln('Вы закончили?');
1: readln(g);
end.
но она после третьего вопроса выходит, почему это может быть?
ЗЫ я знаю что goto это признак плохого програмирования, но пока я с ним не разобрался буду его юзать!!!