38 lines
1004 B
ObjectPascal
38 lines
1004 B
ObjectPascal
program zap;
|
|
|
|
type stud = record // record - ñàìà çàïèñü
|
|
name : string;
|
|
year : record // â record`e record íóæíî óêàçûâàòü ÷åðåç :, âìåñòî =
|
|
D : 1..31;
|
|
M : string;
|
|
Y : integer;
|
|
end;
|
|
end;
|
|
var a :stud; // óêàçûâàåì, ÷òî ïåðåìåííàÿ a = çàïèñü stud
|
|
|
|
begin
|
|
WriteLn('Èìÿ');
|
|
ReadLn(a.name);
|
|
WriteLn('×èñëî, ìåñÿö, ãîä');
|
|
with a.year do begin // with äåëàåò îïåðàöèè ñ çàïèñÿìè
|
|
ReadLn(D);
|
|
ReadLn(M);
|
|
ReadLn(Y);
|
|
end;
|
|
Case a.year.M of //ïîñëå öèôð a ñòîèò èç - çà îøèáêè, êîòîðóþ õç êàê èñïðàâèòü
|
|
'1a' : a.year.M:='ßíâàðü';
|
|
'2a' : a.year.M:='ôåâðàëü';
|
|
'3a' : a.year.M:='ìàðò';
|
|
'4a' : a.year.M:='àïðåëü';
|
|
'5a' : a.year.M:='ìàé';
|
|
'6a' : a.year.M:='èþíü';
|
|
'7a' : a.year.M:='èþëü';
|
|
'8a' : a.year.M:='àâãóñò';
|
|
'9a' : a.year.M:='ñåíòÿáðü';
|
|
'10' : a.year.M:='îêòÿáðü';
|
|
'11' : a.year.M:='íîÿáðü';
|
|
'12' : a.year.M:='äåêàáðü';
|
|
end;
|
|
WriteLn(a.name);
|
|
WriteLn(a.year.D,' ',a.year.M,' ',a.year.Y);
|
|
end. |