Составить программу, которая спрашивает: "кто это, кошка или собака? ". в зависимости от ответа ("к" или "с"), печатает на экране: "мяу-мяу! " или "гав-гав
//Pascal var x:char; begin writeln('Кто это, кошка или собака?'); readln(x); if x = 'К' then writeln('Мяу-мяу!'); if x = 'C' then writeln('Гав-гав!'); end.
var
x:char;
begin
writeln('Кто это, кошка или собака?');
readln(x);
if x = 'К' then
writeln('Мяу-мяу!');
if x = 'C' then
writeln('Гав-гав!');
end.
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