Написать програму проверки знания даты второй мировой войны.

[TurboPaskal]

Помогите найти ошыбку в задаче, вот условие:
Написать програму проверки знания даты второй мировой войны.
В случае неверного ответа пользователя программа должна выводить правильный ответ.

[WOLFak]

uses crt;
var a:string;
begin
clrscr;
writeln ('Vvedite datu nachala 2 mirivoy voyni v formate dd mm gggg :');
readln(a);
if a='01 09 1939' then writeln ('Pravilno')
else
 begin
  writeln ('Nepravilno');
  writeln ('Pravilniy otvet: 01 09 1939');
 end;
readln;
end.

[WOLFak]

вроде бы так

[МаксимNEWProgramm]

WOLFak -обсолюдно с вами согласен , а то товарищ TurboPaskal не умеет или не знает для чего нужны {begin end}

[TurboPaskal]

Спасибо за помощ, я осознал свою ошыбку, она состоит в том что я задал неправильный тип переменной "a:integer" вместо "a:string"

[Stilet]

а то товарищ TurboPaskal не умеет или не знает для чего нужны {begin end}

Чепуху не городи.

TurboPaskal

Твой код работает правильно за исключением одной мелочи - тип integer в паскале не так гибок как в делфи, потому принимает максимум до 32767. А ты в него пихаеш число гораздо большее. Вот если ради интереса поменяеш на longint то твой код будет работать верно.

Ну и в принципе как тут уже огласили не стоит дату цифрой вводить - некрасиво смотрится.

[TurboPaskal]

Подскажите зделать ище 1 задачу на сегодня очень нада :
Написати програму, яка сортує елементу масиву у порядку зростання за методом «бульбашки».

[Stilet]

А ты поиском пройдись. Найдеш много пузырьков. )

[TurboPaskal]

Стилет оч нада на сегодня, если можешь напишы плз.

[Stilet]

Ну ты и лентяй.
Нет бы поиском. Вот держи:

var
  i, j, b_val, b_j: integer;
begin
  if Count > 1 then
    for i := 0 to Count - 2 do
    begin
      b_val := lbNum[i];
      b_j := i;
      for j := i + 1 to Count - 1 do
      begin
        if lbNum[j] < b_val then
        begin
          b_val := lbNum[j];
          b_j := j;
        end;
      end;
      lbNum[b_j] := lbNum[i];
      lbNum[i] := b_val;
    end;
end;