program Vidurkis;

var b, c, vid: real;

begin

  WriteLn('Hi! Stai cia tokia maza programele, kurioje gali surasti dvieju skaiciu vidurki. Spausk enter.');

  Readln;

  WriteLn('Parasyk pirmaji skaiciu ir spausk enter:');

  Readln(b);

  WriteLn('Parasyk antraji skaiciu ir spausk enter:');

  Readln(c);

  vid := (b+c)/2;

  WriteLn('Rezultatas: ',vid: 8: 2);

  Readln

end.

 

program kartotiniai;

var dbd, mbk, sk, sk2 : longint;

procedure dbdmbk (sk1, sk2 : integer; var dbd, mbk : longint);

var ska, ska2, i, m, min, max : longint;

begin

if sk1 <= sk2 then

begin

min := sk1;

max := sk2;

end

else

begin

min := sk2;

max := sk1;

end;

 

dbd:=1;

for i := 1 to min do

if (sk1 mod i = 0) and (sk2 mod i = 0) then dbd := i ;

 

m := sk1 * sk2;

mbk := m ;

for i := max to m do

if (i mod sk1 = 0) and (i mod sk2 = 0) then

begin

mbk := i;

i:=m+1

end ;

 

end ;

 

begin

write (' Įrašykite skaičių ');

read (sk);

write (' Įrašykite kitą skaičių ');

read (sk2);

dbdmbk (sk, sk2, dbd, mbk);

writeln (' Didžiausias bendras daliklis - ', dbd);

readln;

writeln ('Mažiausias bendras kartotinis - ', mbk);

readln;

end.

program lyginis_ar_nelyginis;

var a : integer;

begin

  WriteLn('Iveskite pirma skaičiu');

  read(a);

  if (a)/2;

  then writeln ('')

  else if ()

   then writeln ('')

   readLn;

end.

program lyginis_ar_nelyginis;

var a : integer;

begin

  WriteLn('Iveskite pirma skaičiu');

  read(a);

  if a mod 2 = 0

  then writeln ('TAIP')

  else

 writeln ('NE');

  readLn;

end.

if a mod 2=0;

if a mod 2=1;

program Bevarde0;

var a,b,c,suma, apvalinimas, apvalinimas1 :integer;

var saknis, saknis1, x1, x2 :real;

begin

  // Diskriminanto gavimas

  WriteLn('Įrašykite a b c:');

  ReadLn(a,b,c);

  suma:= sqr(b)-4*a*c;

  WriteLn('Diskriminantas:',suma);

  saknis:= sqrt(suma);

  // x1

  x1:= (-b-saknis)/2*a;

  apvalinimas:= round(x1);

  WriteLn('x1=',apvalinimas);

  // x2

  x2:= (-b+saknis)/2*a;

  apvalinimas1:= round(x2);

  WriteLn('x2=',apvalinimas1);

  Readln;

end.

program LyginisNelyginis;

var a, b : integer;

begin

writeln('1 skaicius:');

readln(a);

b := a mod 2;

if b=1 then writeln('Nelyginis')

else

writeln('Lyginis');

readln

end.

 

program daugyba_;

var a, b : integer;

begin

  WriteLn('Iveskite pirma skačiu');

  read(a);

  WriteLn('Iveskite antra skaičiu');

  read(b);

  writeLn(a*b);

  if a*b mod 2 = 0

  then writeLn ('taip')

  else

  writeLn('Ne');

  Readln;

  ReadLn;

end.

 

program petriukas;

var a : integer;

begin

  WriteLn('Iveskite keik pinigu turėjo Petriukas');

  read(a);

  writeLn(a div 2)+(treciadieni puse pasiskolintos sumos grazino)+(ketvirtadieni Petriukas dar gavo 0.3 karto daugiau litu nei 100 diena.);

  Readln;

  Readln;

end.

program Bevardė6;

var a,b:integer;

begin

  WriteLn('Iveskite du sckaičius');

  Read(a,b);

  WriteLn('Atsakymas:', a div 2, b div 2);

  Readln;

  ReadLn;

end.

program Bevarde;

var a, b : integer;

begin

  WriteLn('Iveskite du sckaicius');

  Read(a,b);

  WriteLn('Atsakymas:', a div 2, ' ', b div 2);

  Readln;

end.

program kelimas_laipsniu;

var a:longint;

begin

  WriteLn('Skaičius');

  Read(a);

  a:=2;

  a:=a*a;

  a:=a*a;

  Write(a);

  ReadLn;

  ReadLn;

end.