1
қң қғ ғ құ қ. : 90.45 90 45 .
program Dengi;
var
d: Real;
r, k: Real;
begin
Write(' : ');
Read(d);
r:= Int(d);
k:= Round(Frac(d) * 100);
Write(r, ' . ');
WriteLn(k, ' .');
end.
2
ғ қң ғқ, қ ғ құ . : 3 ғ 18 .
program timer;
var
t,h,m: Integer;
sm,sh: String;
begin
sm:= 'minut';
sh:= 'sagat';
Write(Minutty engyz: ');
Read(t);
h:= t div 60;
m:= t mod 60;
case h of
1, 21: sh:= sh + '';
2..4, 22..24: sh:= sh + '';
5..20: sh:= sh + '';
end;
case m of
1, 21, 31, 41, 51: sm:= sm + '';
2..4, 22..24, 32..34, 42..44, 52..54: sm:= sm + '';
end;
Write(h, sh, ' ', m, sm);
end.
3
(x1, y1), B(x2, y2), C(x3, y3) ү ү ? қң
program z3;
var
x1, x2, x3, y1, y2, y3, z, n:real;
Begin
write ( ү ');
readln (x1,y1);
write ( ү ');
readln (x2,y2);
write (C ү ');
readln (x3,y3);
z:=(x3-x1)/(y3-y1);
n:=(x3-x2)/(y3-y2);
if (z=n) and (z=(x2-x1)/(y2-y1)) then
writeln (' ү ү);
else
writeln (' ү ү);
end.
4
ұ ң ө ү: ғ қғ 3 5 құғ ғ (ғ қң ү 3 ). 3 ғ 5, 5 құғ 9 ң қ. Ә қғ 3 ө ү. қ (>7) , ң ғ ң қғ. N қ қ .
program z4;
var k, i, n, p:integer;
s, x, y:longint;
r:array [1..3] of longint;
Begin
write(' k='); readln(k);
write( n='); readln(n);
r[1]:=k; r[2]:=0; r[3]:=0; s:=k;
for i:=1 to n do
begin
x:=s div 3;
p:=s mod 3;
if p=0 then y:=0
else if p=1 then begin x:=x-3; y:=2 end
else begin x:=x-1; y:=1 end;
r[3]:=r[2]; r[2]:=r[1]; r[1]:=5*x+9*y;
s:=r[1]+r[2]+r[3];
end;
writeln ( - ,s);
end.
5
ң ү ғ ө, ә құ. ң қ, ө, , 50 - z қ қ. қ қ қ қ қ ү қ .
|
|
program z5;
var
a,b,c,x,y,z,kol,r:real;
Begin
readln (a,b,c);
readln (x,y,z);
readln (r);
x:=int(x*100/a);
y:=int(y*1000/b);
z:=int(z*50/c);
kol:=0;
if (x>=r) and (y>=r) and (z>=r) then
begin
if (x<=y) and (x<=z) then kol:=int(x/r);
if (y
if (z
end;
writeln (kol);
end.
6
Қ , ң ө, өң . ң ң қ . ү қ ? , қ ?
program z6;
var
k,p,r,s, h:real;
kol: integer;
Begin
readln (k,p,r);
kol:=0;
while (k>0) and (kol<50) do
begin
kol:=kol+1;
k:=k+k*(p/100);
k:=k-r;
end;
if kol>=50 then writeln ('no') else writeln (kol);
end.
7
ү : . a^b қ .
program z7;
var
a,b,d:integer;
c:byte;
Begin
writeln (' a'); readln (a);
writeln (' b'); readln (b);
d:=a;
if b=1 then writeln (a)
else
begin
for c:=2 to b do
d:=d*a;
d:=d mod 10;
end;
writeln (d);
end.
8
қ ққ 15 ү ү . ң ү ө 50 . ү ө, ә үң ғ қ (15) қғ. ү ө ә ө ғ , қ қ . үң ғ 50 .
program z8;
type
mas=array[1..15] of integer;
var
m:mas;
k,i,s:integer;
Begin
for i:=1 to 15 do
begin
writeln (' m','[',i,']');
readln (m[i]);
end;
k:=1; i:=1; s:=0;
repeat
if s+m[i]<=50 then
begin
s:=s+m[i];
i:=i+1;
end
else
begin
k:=k+1;
s:=0;
end;
until i>15;
writeln ('Қ, k,'');
9
қ k ң p% ө қ. ү қ қ ?
program z9;
var
s,k,p:real;
n:integer;
Begin
writeln ('қ қ');
readln(k);
writeln ('Ө ');
readln(p);
writeln ('қ , ғ ');
readln(s);
while k
begin
k:=k+k*(p/100);
n:=n+1;
end;
writeln (' -',int(n/12));
end.
10
өң ө . : 175, 1*7*5=35 ө. ң 3 ғ ғ құ.
program z10;
var i,a,b,c: integer;
Begin
for i:= 111 to 999 do
|
|
begin
a:= i div 100;
b:= (i div 10) mod 10;
c:= i mod 10;
if (b <> 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);
end;
end.
11
ғ N . ү ә ө(ү). Ққү : , ... қ . ғ қ ү қ қ.
program z11;
var
N,M,K,x:integer;
Begin
writeln ('Қ ');
readln(N);
writeln (' ө ');
readln(K);
writeln (' ө ');
readln(M);
x:=0;
while N>0 do
begin
x:=x+1;
if x mod 2<>0 then N:=N-K else N:=N-M;
end;
writeln (x);
end.
12
қ қ . қ ғ, қ ?
program z12;
var
A: array [1..4] of integer;
i, m,n:integer;
Begin
for i:=1 to 4 do
A[i]:=15;
repeat
n:=1+random(4);
A[n]:=A[n]-1;
m:=m+1;
until A[n]=0;
writeln (' ', n, ' ');
writeln (' ', m);
end.
13
ө қ құ қ.
program z13;
var
A: array [1..5, 1..5] of byte;
i, j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
A[i, j]:=1+(i+j-2) mod 5;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write (a[i, j]:2);
writeln;
end;
end.
14
ү . ң, ө қ ң
program z14;
var
n, a, b, c, d: byte;
Begin
readln (n);
a:= n mod 2;
n:= n div 2;
b:= n mod 2;
n:= n div 2;
c:= n mod 2;
n:= n div 2;
d:= n mod 2;
n:= n div 2;
a:= 8 * a + 4 * b + 2 * c + d;
writeln (n = a);
end.
15
ң ү . ң ң қ ң.
: ү ң ң қ ә ө ә N ң ң ү . ә: (, N)
program z15;
var
m, n, prod: word;
Begin
readln(m, n);
prod:= m * n;
while m <> n do begin
if m > n then begin
m:= m n
end
else begin
n:= n m
end
end;
writeln(prod div m)
end.
16
Ұғ N (N > = 1) ңң . ұ ө қ ң. NaZhauaby, ө (()) (), ғ қғ ұ , ә ө ((()) - ұқ . : қғ үң ө , ә қ қ қ ң ә ә, ә қ қ ғ ә .
program Z16;
var
count: integer;
i, n: byte;
c: char;
Begin
readln(n);
count:= 0;
for i:= 1 to n do begin
read(c);
if c = '(' then inc(count);
if c = ')' then dec(count);
if count = -1 then break
end;
writeln(count = 0)
end.
17
ң ң ө ң D ә ң қ ү,ң ү ә ұ қ ?
program Z17;
var
a, b, i, j, d, m:integer;
function nod(a, b:integer):integer;
|
|
begin
if a=b then nod:=a
else
if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)
end;
Begin
writeln ( d);
readln (d);
writeln ( K m);
readln (d);
for i:=1 to 100 do
begin
for j:=1 to 100 do
begin
a:=i;
b:=j;
if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);
end;
end;
readln
end.
18
қ, ң ғ % құ,- . қ ғ ө ү ? ғ құ.
program Z18;
var
a, p, s:real;
Begin
writeln (қ );
readln (p);
a:=exp(ln(1+p/100)*12);
s:=(a-1)*100;
writeln (s:10:2);
readln
end.
19
F ө. қ : ү, қ қ ү қ. Ү ө құ, қ , қ . Ә қ ?
program Z19;
var
n1,n2,n3,k1,k2,k3,s,s1,s2:integer;
f:longint;
Begin
writeln ( ө );
readln (f);
writeln (Ү, ө,ү қ қ );
readln (n1,n2,n3);
writeln ( ө );
readln (s1,s2);
if f>s1*n1 then k1:=n1 else k1:=f div s1;
f:=f-s1*k1;
if f>s2*n2 then k2:=n2 else k2:=f div s2;
f:=f-s2*k2;
if f>s2*n3 then k3:=n3 else k3:=f div s2;
f:=f-s2*k3;
writeln ('ү қ ==',k1);
if k2>0 then writeln ('қ қ =',k2);
if k3>0 then writeln ('ү қ =',k3);
writeln (ө =, f);
readln
end.
20
N қ ң құ ұ. I- қ j . Ә ө ққ (i қ i+1 ққ), N- қ . ә қғ құ.
program Z20;
var
n, m, i, j:integer;
Begin
writeln (Қ ө n);
readln (n);
writeln (Қ m);
readln (m);
m:=m mod n;
if m=0 then begin j:=0; m:=n end else j:=n-m;
for i:=1 to n do
begin
j:=j+1;
write (j,' ');
if i=m then j:=0;
end;
writeln (n);
readln
end.