Игра "Космическая Атака"
- Program SpaceAttack;
- var a,b,c,x: integer;
- begin
- randomize;
- for c:=0 to 5 do
- begin
- a:=trunc(random*20+1);
- b:=trunc(random*20+1);
- writeln('Координаты вражеского корабля');
- writeln('В закодированном виде: ',a,' ',b,' огонь');
- readln(x);
- if x=a*b then writeln('Вражеский корабль уничтожен')
- else writeln('Промах');
- end;
- end.
Порт легендарной игры "Космическая Атака" на pascal.
