1) Для четверки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
2) Для семёрки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
Program TRAPECIYA;
var x1, x2 ,y1, y2, P, S:real;
begin
writeln("Введите значение верхнего основания");
readln(y1);
writeln("Введите значение нижнего основания");
<span> readln(y2);
</span> writeln("Введите значение левой грани");
<span> readln(x1);
</span> writeln("Введите значение правой стороны");
<span> readln(x2);
</span>P:=y1+y2+x1+x2;
S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))
writeln(P);
writeln(S);
end
Его местонахождение не сразу можно выявить, словно он скрытая болезнь в организме, и может быть как серьезным и трудноустранимым, так и легким, который не так сложно устроен.
1100............вот как то так