Ответ 18662
Реализация на Haskell
divisors n = [x | x <- [1..(n - 1)], rem n x == 0]
primes = [n | n <- [1..], isPrime n] where isPrime x = (divisors x == [1])
prime = last $ take (11+1) primes
calc :: Integer->Integer->Integer
calc x sm | x>100000 = sm
calc x sm | (x `mod` 2 /= 0 &&
x `mod` 3 /= 0 &&
x `mod` 5 /= 0 &&
x `mod` 7 /= 0 &&
x `mod` 11 /= 0 &&
x `mod` 13 /= 0 &&
x `mod` prime /= 0) = calc (x+1) (sm+1)
| otherwise = calc (x+1) sm
main :: IO ()
main = putStrLn $ show $ calc 1 0
Лазерный, потому что
- у него более четкая черно-белая печать
- емкий картридж (от 1000 до 3000 страниц)
- большой срок службы
- простота в использовании
- стоимость тонера для заправки намного дешевле, чем например у струйного
- высокая скорость печати
- большой лоток подачи бумаги (от 50 страниц)
Вот тебе мой шедевр вместе с фото, которое ты прочитаешь...
да и совет на будущее, ДЕЛАЙ ВСЕ САМ ! не получается, значит тренеруйся,)
Var naibolwee:int64;
i:integer;
A:array [1..4] of int64;
function max(a,b:int64):int64;
begin
if a>b then max:=a else max:=b;
end;
begin
for i:=1 to 4 do
read(A[i]);
for i:=1 to 3 do
naibolwee:=max(A[i],A[i+1]);
writeln(naibolwee);
<span>end.</span>