Begin
var a:=ArrRandom(40,0,20).Println;
var s:=a.Where(x->x mod 3 = 0).Sum;
writeln('S = ',s);
end.
Пример:
8 11 7 18 1 9 10 16 5 1 15 17 15 20 12 7 15 18 2 15 0 7 19 4 7 17 2 19 3 11 1 15 1 2 3 4 18 5 7 1
S = 156
Первое число 455
второе число 85
1)
Var
x,y:real;
begin
read(x);
y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
writeln(y);
end.
2)
Var
x,y:real;
begin
read(x);
if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
writeln(y);
end.
3)
Var
p,i:integer;
begin
p:=1;
for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
if odd(i) then p:=p*i;
writeln(p);
end.
18 кбайт = 18432 байта
откуда число символов равно 18432:2=9216
на каждой странице 9216:12=768 символов
на каждой строке 768:16=48 символов
ответ: 3
отметь лучшим и спасибо поставь
Площадь круга=пи*R^2
внешний круг=пи*R^2
внутренний=пи*r^2
площадь кольца= пиR^2-пиr^2= пи(R^2-r^2)