30. Тұрақтыларды сипаттаудың дұрыс ұйымдастырылған жазылуын көрсет
A. CONST a:=10, b:=7, c=6; B. CONST a, b, c = 6, 7, 10; C. CONSTANTS a=10; b=7; c=6;
D. CONST a=10; b=7; c=6; Е. CONST a:=10; b:=7; c:=6;
10 сынып. ІІ тур. Информатика
1) Бірдей сандар.
Берілген N ( 10
№
|
Мысалы
|
Нәтиже
|
1
|
34
|
11 22 33
|
n = int(input())
for i in range(10, n):
if (i // 10) == (i % 10): print(i," ")
Var i,k:integer;
begin
readln(k);
if (k<10) or (k>99) then begin Write ('10 men 99 araligindagi sandi engiz');exit; end;
for i:=10 to k do
if i div 10 = i mod 10 then write(i,' ')
end.
2) Барлығы әртүрлі.
Берілген N ( 100
№
|
Мысалы
|
Нәтиже
|
1
|
107
|
102 103 104 105 106 107
|
k = int(input())
for i in range(100, k+1):
s=i//100
j=i%100
n=j//10
m=j%10
if (s != n) and (s!=m) and (n!=m): print(i," ")
Var i,s,j,n,m,k:integer;
begin
read(k);
if (k<100) or (k>999) then begin Write ('100 men 999 araligindagi sandi engiz');exit; end;
for i:=100 to k do
begin
s:= i div 100; j:=i mod 100; n:=j div 10; m:=j mod 10;
if (s<>n) and (s<>m) and (n<>m)then write(i,' ');end;
end.
3) Берілген үш сан тізбегі арифметикалык немесе геометриялык прогрессиялар құрайтындығын ( айырмасы немесе еселігін де анықтау керек ) немесе тизбек арифметикалык, геометриялык прогрессияларга жатпайтындығын анықтауға программа құрыңдар. ( Кез келген Pascal, Lazarus, Python тілдері бірінде. )
program arufgiomprog;
var n,a,b,c:integer;
Label 20;
begin
read(a,b,c);
if c-b = b-a then begin writeln('тизбек арифметикалык прогрессия, айырма=',c-b);goto 20; end;
if c/b = b/a then begin writeln('тизбек геометриялык прогрессия, еселик=',c/b);goto 20; end;
writeln('тизбек арифметикалык, геометриялык прогрессияларга жатпайды.');20: end.
Достарыңызбен бөлісу: |
