Ответ: //Pascalvar x:char;begin writeln(‘Кто это, кошка или собака?’); readln(x); if x = ‘К’ then writeln(‘Мяу-мяу!’); if x = ‘C’ then writeln(‘Гав-гав!’);end.
Ответ: // F#open System;[<EntryPoint>]let main argv = let rec getResult _ = let answer = Console.ReadKey(true); match answer.KeyChar with | ‘К’ | ‘к’ -> «Мяу-мяу!» | ‘С’ | ‘с’ -> «Гав-гав!» | _ -> (getResult null) printf «Это кошка или собака?» printf «%s» (getResult null) 0