 2021. . .    ExamBegin 1-80?
  


      ,           .         80    ExamBegin.           ,        .





 

 2021. . .    ExamBegin 1-80?








          .          .   .ABC        .        ,       . ,  ,  ,      .        ,         .   ,        .

      ,         ,     ,    ,       .    ,  ,     ,        . ,                  ,          .      ,        .

  ,          .           ,       .        ,                       ,    .     ,         .     80 ,          .

             .    ,             .




  





ExamBegin1


     ;     .   ,     .          .

uses PT4Exam;

var

a, b: integer;

begin

Task('ExamBegin1');

Read(a, b);

if a > bthen Write(a, ' ', b)

else Write(b, ' ', a);

end.




ExamBegin2


     ;     .   ,     .          : MIN=  , MAX=  .

uses PT4Exam;

var

x, max, min: real;

i: integer;

begin

Task('ExamBegin2');

min := maxreal;

max := -maxreal;

for i := 1 to 3 do

begin

read(x);

if x > max then max := x;

if x < min then min := x;

end;

WriteLn('MIN=', min:4:2);

WriteLn('MAX=', max:4:2);

end.




ExamBegin3


     ;      .    .

uses PT4Exam;

var

i, a, min: integer;

begin

Task('ExamBegin3');

min := 32768;

for i := 1 to 4 do

begin

Read(a);

if a < min then min := a;

end;

Write(min);

end.




ExamBegin4


       A,B,C Ax2+Bx+C=0 (A 0).      .    .     .     ,    ,    (   ).   ,    NO.

uses PT4Exam;

var

a, b, c: integer;

d, x, x1, x2: real;

begin

Task('ExamBegin4');

Read(a, b, c);

d := sqr(b)  4 * a * c;

if d < 0then Write('NO')

else begin

if d = 0 then begin

x := -(b / (2 * a));

WriteLn(x:4:2);

end

else begin

x1 := -(b + sqrt(d)) / (2 * a);

x2 := -(b  sqrt(d)) / (2 * a);

if x1 > x2 then begin

WriteLn(x2:4:2);

WriteLn(x1:4:2);

end

else begin

WriteLn(x1:4:2);

WriteLn(x2:4:2);

end;

end;

end;

end.




ExamBegin5


      ;      .    (),  : (A,B)=(B,AmodB),  B?0;    (A, 0)=A,  mod      .

uses PT4Exam;

var

a, b: integer;

begin

Task('ExamBegin5');

Read(a, b);

while a <> bdo

begin

if a > bthen a := a  b

else b := b  a;

end;

Write(a);

end.




ExamBegin6


      ;     .    (),   (A,B)=A(B/(A,B)),  (A,B)    ,   /    .       (.  ExamBegin5).

uses PT4Exam;

var

a, b, nod: integer;

begin

Task('ExamBegin6');

Read(a, b);

nod := a * b;

while a <> bdo

begin

if a > bthen a := a  b

else b := b  a;

end;

Write(nod div a);

end.




ExamBegin7


      :AD(2?D?9);     .  ,   A    D(      ).

uses PT4Exam;

var

a, b, rem, num, k: integer;

begin

Task('ExamBegin7');

Read(a, b);

num := 0; k := 1;

while a > 0do

begin

rem := a mod b;

a := a div b;

num := num + rem * k;

k := k * 10;

end;

Write(num);

end.




ExamBegin8


       D(2?D?9),      ,     A    D.  A   .

uses PT4Exam;

var

a, num, k, m: integer;

b: string;

begin

Task('ExamBegin8');

Readln(a);

Readln(b);

num := 0; m := 1;

while length(b) > 0do

begin

k := StrToInt(Copy(b, length(b), 1));

Delete(b, length(b), 1);

num := num + k * m;

m := m * a;

end;

Write(num);

end.




ExamBegin9


     .      2,    YES,   NO.

uses PT4Exam;

var

a, x: integer;

num: boolean;

begin

Task('ExamBegin9');

ReadLn(a);

x := 1; num := false;

while x <= a do

begin

x := x * 2;

if (x = a) or (a = 1) then num := true;

end;

if num = true then Write('YES')

else Write('NO');

end.




ExamBegin10


      AK;      .  A  K, ..A=KN,     N,    NO.

uses PT4Exam;

var

a, k, x, n: integer;

z: boolean;

begin

Task('ExamBegin10');

Read(a, k);

x := 1; n := 0; z := false;

while x < ado

begin

x := x * k;

n := n + 1;

if x = a then z := true;

end;

if (z = true) or (a = 1) then write(n)

else write('NO');

end.




ExamBegin11


    ,  1.     , 1.

uses PT4Exam;

var

a, x: integer;

begin

Task('ExamBegin11');

Read(a);

x := 2;

while a mod x <> 0do

x := x + 1;

Write(x);

end.




ExamBegin12


    ,  1.   , ..    ,  1   ,    YES,   NO.

uses PT4Exam;

var

a, i, k: integer;

begin

Task('ExamBegin12');

Read(a);

k := 0;

for i := 1 to a do

if a mod i = 0 then k := k + 1;

if k > 2then Write('NO')

else Write('YES');

end.




ExamBegin13


    ,  1.              (     ,      ).

uses PT4Exam;

var

a, k: integer;

begin

Task('ExamBegin13');

Read(a);

k := 2;

while a <> 1do

begin

if a mod k = 0 then begin

Writeln(k);

a := a div k;

end

else k := k + 1;

end;

end.




ExamBegin14


        N,       N .       .

uses PT4Exam;

var

a, n, i, sum: integer;

begin

Task('ExamBegin14');

Read(n);

sum := 0;

for i := 1 to n do

begin

read(a);

sum := sum + a;

end;

Write(sum);

end.




ExamBegin15


        N,   N   N  (    ).       .

uses PT4Exam;

var

x, i: integer;

a, p: real;

begin

Task('ExamBegin15');

Read(x);

p := 1;

for i := 1 to x do

begin

read(a);

p := p * a;

end;

Write(p:4:2);

end.




ExamBegin16


     ,         0;      .       .

uses PT4Exam;

var

a, sum: integer;

begin

Task('ExamBegin16');

sum := 0;

ReadLn(a);

while a <> 0do

begin

sum := sum + a;

Readln(a);

end;

WriteLn(sum);


end.



ExamBegin17

     ,          ;      .        .

uses PT4Exam;

var

a, sum: real;

begin

Task('ExamBegin17');

sum := 1;

ReadLn(a);

while a > 0do

begin

sum := sum * a;

readln(a);

end;

WriteLn(sum:4:2);

end.




ExamBegin18


      N.       N,  N    : 1, 3, 5,  .      .

uses PT4Exam;

const

R = 100;

var

m: array[1..R] of integer;

a, k, n: integer;

begin

Task('ExamBegin18');

Read(a);

k := 1; n := 0;

while n < ado

begin

if k mod 2 = 1 then begin

m[k] := k;

n := n + 1;

Writeln(m[k]);

end;

k := k + 1;

end;

end.




ExamBegin19


      N.       N,       N-: 2, 4, 8, 16,  .      ,     5  .

uses PT4Exam;

const

R = 100;

var

m: array[0..R] of integer;

a, i: integer;

begin

Task('ExamBegin19');

Read(a);

m[0] := 1;

for i := 1 to a do

begin

m[i] := m[i  1] * 2;

Write(m[i]:5);

end;

end.

  19 .

uses PT4Exam;

var

a, i, p: integer;

begin

Task('ExamBegin19');

Read(a);

p := 1;

for i := 1 to a do

begin

p := p * 2;

Write(p:5);

end;

end.




ExamBegin20


    :   N (> 1)    A  D         (     ).      N,  N    : A, A + D, A + 2D, A + 3D,  .      ,     7  .

uses PT4Exam;

const

R = 100;

var

m: array[1..R] of real;

n, i: integer;

a, d: real;

begin

Task('ExamBegin20');

Read(n, a, d);

for i := 1 to n do

begin

m[i] := a;

Write(m[i]:7:2);

a := a + d;

end;

end.

  20 .

uses PT4Exam;

var

n, i: integer;

a, d: real;



begin

Task('ExamBegin20');

Read(n, a, d);

for i := 1 to n do

begin

Write(a:7:2);

a := a + d;

end;

end.




 





ExamBegin21


    :  N(>1)   AD      (     ).     N, N   :A,AD,AD


,AD


,.      .

uses PT4Exam;

const R = 100;

var

m: array[1..R] of real;

n, i: integer;

a, d: real;

begin

Task('ExamBegin21');




  .


   .

   ,     (https://www.litres.ru/elena-leonidovna-tep/ege-2021-informatika-programmirovanie-kak-reshat-zada/)  .

      Visa, MasterCard, Maestro,    ,   ,     ,  PayPal, WebMoney, ., QIWI ,       .


