Составители:
Рубрика:
36
(10). t:='ура'
for k to 1 do
t:=t+'!';
(11). S:='1';
for i:=1 to S do
write(S);
(12). S:=0 or S:=1;
while (S=0) end (S<’1’)
begin k:=k+1;
S:=S-1;
(13). a:= -1; b:=1;
repeat:
if a<1 then b:=b-1
if a>1 then b:=b+1;
until: a>5
(14). for ch:=’a’ to ‘z’
S:=ch*2-ch;
write(S);
(15). while i<7 do
begin if i:=1 then
i:=4-x else i:=’8’;
28. Определите, что делает данный фрагмент программы:
(1). S:=0; n:=0;
for i:=1 to 25 do
if i mod 3 =0 then begin n:=n+1;
S:=S*(n-1)/n+i/n end;
(2). for i:=1900 to 2000 do
if (i mod 4=0) and (i mod 100<>0)
or (i mod 400=0) then write(i);
(3). while m<>n do
if m>n then m:=m-n else n:=n-m;
write(m);
(4). write('m='); read(m);
n1:=1; n2:=1;
repeat
n:=n1+n2;
n2:=n1; n1:=n;
until n>m;
write(n);
(5). f:=false; i:=1;
write('n='); readln(n);
repeat
write('m='); readln(m);
i:=i+1;
if m<n then f:=true else n:=m;
until f or (i=100);
if f then writeln('нет') else writeln('да');
(6). k:=0; i:=0; f:=true;
repeat
write('n='); readln(n);
i:=i+1;
if (n<0) and f then k:=k+1 else
f:=false;
until (i=50) or not(f);
writeln(k);
(7). write('n='); readln(n);
m:=0;
for i:=1 to n-1 do
if n mod i=0 then m:=m+i;
if m=n then write('да') else write('нет');
29. Напишите фрагмент программы для вычисления:
(1) суммы чисел, обратных к первым N натуральным числам;
(2) суммы квадратов чисел от 1 до n;
(3) n!;
(4) (2n+1)!!
(5) (2n)!!
(6) произведения (a-n)(a-2n)…(a-kn);
(7) суммы a
-1
+a
-2
+a
-3
+…+a
-n
;
(8) суммы a
-1
+a
-2
+a
-4
+a
-8
+…+
n
2
-
a
Страницы
- « первая
- ‹ предыдущая
- …
- 34
- 35
- 36
- 37
- 38
- …
- следующая ›
- последняя »
