Question

Составить программу, которая спрашивает: "кто это, кошка или собака? ". в зависимости от ответа ("к" или "с"), печатает на экране: "мяу-мяу! " или "гав-гав

Answer 1

//Pascal
var 
 x:char;
begin
 writeln('Кто это, кошка или собака?');
 readln(x);
 if x = 'К' then
  writeln('Мяу-мяу!');
 if x = 'C' then
  writeln('Гав-гав!');
end.

Answer 2

// F#
open System;
[<EntryPoint>]
let main argv =
    let rec getResult _ =
        let answer = Console.ReadKey(true);
        match answer.KeyChar with
            | 'К' | 'к' -> "Мяу-мяу!"
            | 'С' | 'с' -> "Гав-гав!"
            | _ -> (getResult null)
    printf "Это кошка или собака?\n"
    printf "%s" (getResult null)
    0