Program OrelReshka; var player1, player2, result: string; heads, tails, i: integer; begin // Введення імен гравців write('Введіть ім’я гравця 1: '); readln(player1); write('Введіть ім’я гравця 2: '); readln(player2); writeln('Починаємо гру ', player1, ' проти ', player2, '!');
// Починаємо кидати монету десять разів для кожного гравця for i := 1 to 10 do begin // Гравець 1 кидає монету write(player1, ', введіть "орел" або "решка": '); readln(result); if (result = 'орел') or (result = 'решка') then writeln(player1, ' кинув ', result) else writeln('Неправильний ввід, гравець 1 пропускає цей хід');
// Гравець 2 кидає монету write(player2, ', введіть "орел" або "решка": '); readln(result); if (result = 'орел') or (result = 'решка') then writeln(player2, ' кинув ', result) else writeln('Неправильний ввід, гравець 2 пропускає цей хід'); end;
Answers & Comments
Program OrelReshka;
var
player1, player2, result: string;
heads, tails, i: integer;
begin
// Введення імен гравців
write('Введіть ім’я гравця 1: ');
readln(player1);
write('Введіть ім’я гравця 2: ');
readln(player2);
writeln('Починаємо гру ', player1, ' проти ', player2, '!');
// Починаємо кидати монету десять разів для кожного гравця
for i := 1 to 10 do
begin
// Гравець 1 кидає монету
write(player1, ', введіть "орел" або "решка": ');
readln(result);
if (result = 'орел') or (result = 'решка') then
writeln(player1, ' кинув ', result)
else
writeln('Неправильний ввід, гравець 1 пропускає цей хід');
// Гравець 2 кидає монету
write(player2, ', введіть "орел" або "решка": ');
readln(result);
if (result = 'орел') or (result = 'решка') then
writeln(player2, ' кинув ', result)
else
writeln('Неправильний ввід, гравець 2 пропускає цей хід');
end;
writeln('Гра завершена');
end.