## var n := ReadInteger('Введите n:'); var m := ReadInteger('Введите m:'); Print('Введите элементы матрицы:'); var matr := ReadMatrInteger(n, m); var K := ReadInteger('Введите K:'); matr.ElementsByRow.Where(x → x>K).Sum.Print
var w1, w2: string; m: set of char; c: char; i: integer;
begin Writeln('Введите первое "слово"'); Readln(w1); Writeln('Введите второе "слово"'); Readln(w2); m := []; w1 := LowerCase(w1);w2 := LowerCase(w2); for i := 1 to length(w1) do if w1[i] in gl then Include(m, w1[i]); for i := 1 to length(w2) do if w2[i] in m then Exclude(m, w2[i]); Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:'); foreach c in m do Write(c, ' '); Writeln end.
Тестовое решение: Введите первое "слово" Дай, Джим, на счастье лапу мне! Введите второе "слово" Сергей Есенин Гласные, присутствующие в первом слове и отсутствующие во втором: а у
{Целевой язык не указан, приведу пример на Haskell}
Цена вычисляется как
C - максимальная цена, которую мы можем себе позволить.
Поэтому , где div - оператор целочисленного деления.
Кодmodule Spinner (spinner, maybeTo) whereimport Control.Monad.Fail as MFail (MonadFail, fail) import System.IO (hFlush, stdout)import Text.Read (readMaybe)import Data.Maybe (maybe)maybeTo :: (MonadFail m) => Maybe b -> String -> m bmaybeTo Nothing msg = MFail.fail msgmaybeTo (Just a) _ = return aspinner :: IO ()spinner = do putStr "Enter an A: " hFlush stdout maybeA <- fmap readMaybe getLine :: IO (Maybe Int) a <- maybeTo maybeA "It's not an Int" putStr "Enter an B: " hFlush stdout maybeB <- fmap readMaybe getLine :: IO (Maybe Int) b <- maybeTo maybeB "It's not an Int" putStr "Enter an C: " hFlush stdout maybeC <- fmap readMaybe getLine :: IO (Maybe Int) c <- maybeTo maybeC "It's not an Int" maybe (putStrLn "You can't use 0 with B var!") (putStrLn . ("The maximum spinner's levers number is " ++) . show) (makeNumber a b c) putStrLn ""makeNumber :: Int -> Int -> Int -> Maybe Int makeNumber _ 0 _ = NothingmakeNumber a b c = Just $ div (c - a) b
, где div - оператор целочисленного деления.
PascalABC.NET:
## var n := ReadInteger('Введите n:'); var m := ReadInteger('Введите m:'); Print('Введите элементы матрицы:'); var matr := ReadMatrInteger(n, m); var K := ReadInteger('Введите K:'); matr.ElementsByRow.Where(x → x>K).Sum.Print