1.
var i,a:integer;
begin
readln(a);
for i:=1 to 30 do
writeln(a);
end.
2.
var i,n:integer;
begin
readln(n);
for i:=1 to n do
writeln('HELLO');
end.
3.
var i:integer;
begin
i:=-100;
while i<=50 do
begin
writeln(i);
i:=i+5;
end;
end.
4.
var n,i,m,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(m);
s:=s+m;
end;
writeln('суммарная масса ',s);
end.
5.
var n,i,s,r:integer; sr:real;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(r);
s:=s+r;
end;
sr:=s/n;
writeln('среднийрост ',sr);
end.
6.
var i:integer;
begin
for i:=1 to 9 do
writeln(2*i);
end.
7.
var i:integer;
begin
for i:=10 to 99 do
writeln(i);
end.
8.
var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,' ');
end.
9.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0) and (i mod 10=1) then write(i,' ');
end.
10.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 10=2) and (i mod 3=0) then write(i,' ');
end.
11.
var n,i,a,k:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a>0)and((a mod 5=0)or(a mod 17=0)) then k:=k+1;
end;
writeln(k);
end.
12.
var i,a,b:integer;
begin
readln(a,b);
for i:=a to b do
if (i mod 2=-1) and (i mod 3=0) then writeln(i);
end.
13.
var i,k:integer; d,p:real;
begin
k:=0;
for i:=1 to 12 do
begin
readln(d);
if (d<=4) or (d>=5) then k:=k+1;
end;
p:=k/12*100;
writeln('процентбрака ',p);
end.
14.
var i,n,k,s,a:integer; sr:real;
begin
readln(n);
k:=0;s:=0;
for i:=1 to n do
begin
readln(a);
if (abs(a) mod 10=5) then begin s:=s+a;k:=k+1;end;
end;
sr:=s/k;
writeln('среднее ',sr);
end.
15.
var i,a,m:integer;
begin
m:=-20;
for i:=1 to 30 do
begin
readln(a);
if (a>m)and(a<0) then m:=a;
end;
writeln(m);
end.
16.
var i,r,m:integer;
begin
readln(r);
m:=r;
for i:=2 to 7 do
begin
readln(r);
if r>m then m:=r;
end;
writeln(m);
end.
17.
var i,a,n,s,k:integer; x:real;
begin
readln(x);
readln(n);
s:=0; k:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then begin s:=s+a; k:=k+1;end;
end;
if s/k>x then writeln('верно') else writeln('неверно');
end.
18.
var i,a,k:integer;
begin
k:=0;
for i:=1 to 30 do
begin
readln(a);
if a=0 then k:=k+1;
end;
if k>0 then writeln(k) else writeln('днейбезосадковнебыло');
end.
19.
var i,a,k,n:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then k:=k+1;
end;
if k>0 then writeln(k) else writeln('дней с положительной температурой не было');
end.
20.
var i,a,k,n,m:integer;
begin
readln(m);k:=1;
for i:=2 to 10 do
begin
readln(a);
if a>m then begin m:=a;k:=i;end;
end;
writeln(k);
end.
21.
var n:integer;
begin
readln(n);
while n<>0 do
begin
writeln(n mod 10);
n:=n div 10;
end;
end.
22.
var n,k,s,p,m:integer;
begin
readln(n);
k:=0;s:=0;p:=1;m:=0;
while n<>0 do
begin
k:=k+1;
s:=s+n mod 10;
p:=p*(n mod 10);
if (n mod 10 mod 2=0) then m:=m+1;
n:=n div 10;
end;
writeln(k);
writeln(s);
writeln(p);
writeln(m);
end.
23.
var n,k,c:integer;
begin
readln(n);
k:=0;c:=0;
while n<>0 do
begin
c:=c+1;
if (n mod 10 mod 2=0) then k:=k+1;
n:=n div 10;
end;
if k>(c-k) then writeln('верно') else writeln('неверно');
end.
24.
var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln(k);
end.
25.
var a,k,s:integer; r:real;
begin
k:=0;
readln(a);
while a<>0 do
begin
k:=k+1;
s:=s+a;
readln(a);
end;
r:=s/k;
writeln(r);
end.
26.
var a,m:integer;
begin
readln(a);
m:=a;
while a<>0 do
begin
if a>m then m:=a;
readln(a);
end;
if m=0 then writeln('чисел не было') else writeln(m);
end.
27.
var a,m:integer;
begin
readln(a);
m:=a;
while a<>0 do
begin
if a<m then m:=a;
readln(a);
end;
if m=0 then writeln('чисел не было') else writeln(m);
end.
28.
var i,n:integer;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then writeln(i);
end.
29.
var i,n,k:integer;
begin
readln(n);
k:=2;
for i:=2 to n div 2 do
if n mod i=0 then k:=k+1;
writeln(k);
end.
30.
var i,n,k:integer;
begin
readln(n);
k:=2;
for i:=2 to n div 2 do
if n mod i=0 then k:=k+1;
if k=2 then writeln('верно') else writeln('неверно');
end.
31.
var i,n,k:integer;
begin
readln(n);
k:=1;
for i:=2 to n div 2 do
if n mod i=0 then k:=k+i;
if k=n then writeln('верно') else writeln('неверно');
end.
32.
var i,n,m,a:integer;
begin
readln(n);
m:=-10001;
for i:=1 to n do
begin
readln(a);
if (a>m) and (abs(a) mod 10=5) then m:=a;
end;
if m<>-10001 then writeln(m) else writeln('чисел, оканчивающихся на 5 нет');
end.
33.
var i,n,m,a:integer;
begin
readln(n);
m:=100;
for i:=1 to n do
begin
readln(a);
if (a<m) and (a>9) and (a<100) then m:=a;
end;
if m<>100 then writeln(m) else writeln('чисел нет');
end.
34.
var i,n,k,a:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a>-1000) and (a<-99) then k:=k+1;
end;
writeln(k);
end.
35.
var i,n,k,a,x:integer;
begin
readln(n);
readln(x);
k:=0;
for i:=1 to n do
begin
readln(a);
if a>x then k:=k+1;
end;
writeln(k);
end.
36.
var i,n,k,a,b:integer;
begin
readln(n);
k:=0;
readln(a);
for i:=2 to n do
begin
readln(b);
if (a mod 2=0) and (b mod 2=0) then k:=k+1;
a:=b;
end;
writeln(k);
end.
37.
var i,n,k,a,b:integer;
begin
readln(n);
k:=0;
readln(a);
for i:=2 to n do
begin
readln(b);
if (a<0) or (b<0) then k:=k+1;
a:=b;
end;
writeln(k);
end.
38.
var i,n,a,b,m:integer;
begin
readln(n);
readln(a);
readln(b);
m:=a+b;
a:=b;
for i:=3 to n do
begin
readln(b);
if a+b>m then m:=a+b;
a:=b;
end;
writeln(m);
end.
39.
var i,n,a,k,m:integer;
begin
readln(n);
k:=0; m:=0;
for i:=1 to n do
begin
readln(a);
if a=0 then k:=k+1 else k:=0;
if k>m then m:=k;
end;
writeln(m);
end.
40.
var i,n,a,b,k,m:integer;
begin
readln(n);
k:=1; m:=1;
readln(a);
for i:=2 to n do
begin
readln(b);
if b>a then k:=k+1 else k:=1;
if k>m then m:=k;
a:=b;
end;
writeln(m);
end.
41.
var i,n,p:integer;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
writeln(p);
end.
42.
var i,n,s:integer;
begin
readln(n);
s:=0; i:=2;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
end.
43.
var i,n:integer; s:real;
begin
readln(n);
s:=0;i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+1;
end;
writeln(s);
end.
44.
var i,n,a,b,c:integer;
begin
readln(n);
a:=1;
b:=1;
write(a,' ',b);
for i:=3 to n do
begin
c:=a+b;
write(' ',c);
a:=b;
b:=c;
end;
end.
45.
var i,n,p:integer;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*2;
writeln(p);
end.
46.
var i,n,p:integer;
begin
readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*2;
writeln(p);
end;
end.
47.
var i,n,m,p:integer;
begin
readln(n,m);
p:=1;
for i:=1 to m do
p:=p*n;
writeln(p);
end.
48.
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln(s);
end.
49.
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
if ((i div 100)*(i mod 10)) mod 10=3 then
begin
writeln(i);
k:=k+1;
end;
writeln(k);
end.
50.
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
if ((i div 100)+(i mod 10)) mod 15=0 then
begin
writeln(i);
k:=k+1;
end;
writeln(k);
end.
51.
var i,n,x,k:integer;s,p:real;
begin
readln(n,x,k);
s:=n;
for i:=1 to k do
begin
p:=s*x/100;
s:=s+p;
end;
writeln(s);
end.
52.
var i,n,x,k,m,g:integer;s,p:real;
begin
readln(n,x,k,m);
s:=n;g:=0;
while s<=m do
begin
g:=g+1;
p:=s*x/100;
s:=s+p;
end;
writeln(g);
end.
53.
var i,a:integer;s,p,s1:real;
begin
readln(a);
s:=a; s1:=a;
for i:=2 to 12 do
begin
p:=s*5/100;
s:=s+p;
s1:=s1+s;
end;
writeln(s1/12:2:2);
end.
54.
var i,a,n,m,k:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a=5) and (k=0) then begin m:=i;k:=1;end;
end;
if k=0 then writeln('5 не было') else writeln(m);
end.
55.
var i,a,n,m,k,f:integer;
begin
readln(n);
k:=0;f:=0;
for i:=1 to n do
begin
write('Введите ',i,'-ое число');readln(a);
if (a mod 2=0) then k:=k+1;
if (k=5) and (f=0) then begin f:=1;m:=i;end;
end;
if k=0 then writeln('четных не было') else
if k<5 then writeln('четных чисел меньше 5 ') else writeln(m);
end.
56.
var x,y:real;
begin
x:=-3;
while x<=5 do
begin
if 1-x=0 thenwriteln('для x=',x:2:1,' значение y не может быть вычислено')
else
begin
y:=2/(1-x);
writeln('для x=',x:2:1,' y=',y:2:1);
end;
x:=x+1;
end;
end.
57.
var x,y:real;
begin
x:=-5;
while x<=5 do
begin
if (2*x*sqr(x)-8*x)=0 then writeln('для x=',x:2:1,' значение y не может быть вычислено')
else
begin
y:=sqr(x)/(2*x*sqr(x)-8*x);
writeln('для x=',x:2:1,' y=',y:2:1);
end;
x:=x+0.5;
end;
end.