Var x,y,z,t: real;
begin
write('числа x y z через пробел: ');
readln(x,y,z);
t:=2*cos(x-pi/6)/(0.5+sin(y)*sin(y))*(1+z*z/(3-z*z/5));
writeln('t = ',t);
end.
числа x y z через пробел: 1 2 3
t = 11.3859051278616
Куркин
о. о
в. с к о р о в о д а
а. о
л. в
ь
var i := 3;
var sum := 0;
while i < 91 do
begin
sum += i;
i += 3;
end.
writeln(sum);
Ответ: 2, 8, 15, 19, 20.
Если у чисел на конце 1, то мы их сразу не берём, так как нечетные числа не делятся на 4.