Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- land = (Australia, Bulgaria, Greece, Italy, Norway, France, Germany);
- capital = (Vene, Sophie, Aphine, Rome, Oslo, Paris, Berlin);
- var
- st: land;
- cap: capital;{По значению переменной st(названию страны)присвоить переменной сар название столицы этой страны.}
- n: 0..6;
- begin
- write('Vvedite stranu (0-Australia, 1-Bulgaria, 2-Greece, 3-Italy, 4-Norway, 5-France, 6-Germany): ');
- read(n);
- for st:=Australia to Germany do
- if n=ord(st) then break;
- case st of
- Australia: writeln('Vene');
- Bulgaria: writeln('Sophie');
- Greece: writeln('Aphine');
- Italy: writeln('Rome');
- Norway: writeln('Oslo');
- France: writeln('Paris');
- Germany: writeln('Berlin');
- end;
- read;
- End.
RAW Paste Data