Ответы и объяснения

2013-03-22T12:13:05+04:00

1)

var sum,i:integer;

begin

for i:=10 to 100 do

if (i mod 4=0) and (i mod 8<>0) then sum:=sum+1;

writeln (sum);

end.

 

2)

var i,count:integer;

begin

for i:=1 to 20 do

begin

count:=count+1;

writeln (sin(count));

end;

end.

 

3)

var a1,a2,i:integer;
begin
for i:=10 to 99 do
begin
a1:=i mod 10;
a2:=i div 10;
if (i=3*(a1+a2)) then writeln (i);
end;
end.