Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
For i:=1 to 9 do
for j:= 0 to 9 do
if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);
end.
Cначала спускаемся на а(6) потом на. б(6) потом на б(8)
Program sinys;
var m,i:integer;x:real;mas:array [1..1000] of integer;
begin
x:=0;
readln(m);
for i:=1 to m do
x:=x+(1/sin(i));
writeln(x)
end.
ВОТ РЕБУС К СЛОВУ ИНФОРМАТИКА