ПФ фото хоть дай теста то
begin
// 1
var N := ArrRandom(70, 1, 45);
N.Println;
N.Where(p -> p < 10).Aggregate(BigInteger(1), (p, q) -> p * q).Println;
// 2
var M := ArrGen(45, p -> Sqrt(p) / 45, 1);
M.Println
end.
Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
Ответ .ярлык
як=яр
клык=лык
яр +лык=ярлык