Цитата:
Сообщение от Vladimir_S
Ну отчего же? Ошибок нет, я проверил. Хотя применение типа "диапазон" (время, месяц, год) несколько странно, ну да наверное можно и так.
|
Все так было предположение что не так начал делать))
В итоге сделал по-другому)) Вроде нормалек)
Код:
uses crt;
type
bilet=record
den:string;
pynkt:string;
vremya:integer;
kupe:integer;
plac:integer;
end;
var
poezd: array [1..3] of bilet;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Заполним информацию для поезда №',i);
writeln('Введите день отъезда');
readln(poezd[i].den);
writeln('Введите пункт назначения');
readln(poezd[i].pynkt);
writeln('Введите время отъеда');
readln(poezd[i].vremya);
writeln('Введите количество купейных мест');
readln(poezd[i].kupe);
writeln('Введите количество плацкартных мест');
readln(poezd[i].plac);
end;
for i:=1 to 3 do
if (poezd[i].den='Суббота') and (poezd[i].pynkt='Берлин') and (poezd[i].vremya<=22) and (poezd[i].kupe>50) then
writeln ('Вы можете заказать билеты на поезд №',i) else
writeln('Извините, мы не можем принять ваш заказ, поскольку поезд №',i, 'не удовлетворяет вашему условию');
end.