1. program Suma;
var a, b, c, d, sum : real;
begin
WriteLn(‘įveskite pirmąjį skaičių’);
Readln(a);
WriteLn(‘įveskite antrąjį skaičių’);
Readln(b);
WriteLn(‘įveskite trečiąjį skaičių’);
Readln(c);
WriteLn(‘įveskite ketvirtąjį skaičių’);
Readln(d);
sum := a + b + c + d;
WriteLn(‘gauta suma yra ‘, sum :6:2);
ReadLn;
end.
2. program Sandauga;
var a, b, c, d, sand : real;
begin
WriteLn(‘įveskite pirmąjį skaičių’);
Readln(a);
WriteLn(‘įveskite antrąjį skaičių’);
Readln(b);
WriteLn(‘įveskite trečiąjį skaičių’);
Readln(c);
WriteLn(‘įveskite ketvirtąjį skaičių’);
Readln(d);
sand := a * b * c * d;
WriteLn(‘gauta sandauga yra ‘, sand :6:2);
ReadLn;
end.
3. program Skirtumas;
var a, b, c, d, skirt : integer;
begin
WriteLn(‘iveskite pirmaji skaièiu’);
Readln(a);
WriteLn(‘iveskite antrajá skaièiu’);
Readln(b);
WriteLn(‘iveskite treciajá skaièiø’);
Readln(c);
WriteLn(‘iveskite ketvirtajá skaièiø’);
Readln(d);
Skirt := a – b – c – d;
WriteLn(‘gauta skirtumas yra ‘, skirt);
ReadLn;
end.
4. program Vidurkis;
var a, b, c, d, vid : real;
begin
WriteLn(‘įveskite pirmąjį skaičių’);
Readln(a);
WriteLn(‘įveskite antrąjį skaičių’);
Readln(b);
WriteLn(‘įveskite trečiąjį skaičių’);
Readln(c);
WriteLn(‘įveskite ketvirtąjį skaičių’);
Readln(d);
vid := (a + b + c + d) / 4;
WriteLn(‘skaiciu vidurkis yra ‘, vid :6:2);
Readln
end.
5. program suma_ir_sandauga;
var a, b, c, d, sum, san: integer;
begin
WriteLn(‘įveskite pirmąjį skaičių’);
Readln(a);
WriteLn(‘įveskite antrąjį skaičių’);
Readln(b);
WriteLn(‘įveskite trečiąjį skaičių’);
Readln(c);
WriteLn(‘įveskite ketvirtąjį skaičių’);
Readln(d);
sum:= a + b + c + d;
san:= a * b * c * d;
WriteLn(‘gauta suma yra ‘, sum);
WriteLn(‘gauta sandauga yra ‘, san);
ReadLn
end.
6. program apskritimo_ilgis;
var r, ilg : real;
begin
WriteLn(‘įveskite spinduli’);
Readln(r);
ilg := pi * 2 * r;
WriteLn(‘gauta suma yra ‘, ilg :6:2);
ReadLn
end.
7. program ritinys;
var r, h, v, s : real;
begin
WriteLn(‘įveskite spinduly’);
Readln(r);
WriteLn(‘įveskite aukštine’);
Readln(h);
v := pi * (r * r) * h;
s := 2 * pi * r * h;
WriteLn(‘ritiniu turis yra ‘, v :6:2, ‘ritinio paviršiaus plotas yra ‘, s :6:2);
ReadLn;
end.
8. program mažesnysis;
var a, b : integer;
begin
WriteLn(‘įveskite 1 skaičių’);
Readln(a);
WriteLn(‘įveskite 2 skaičių’);
ReadLn(b);
if
a < b then WriteLn(‘mažesnis skaičius yra’, a)
else
WriteLn(‘mažesnis skaičius yra’, b);
ReadLn;
end.
9. program didesnysis;
var a, b : integer;
begin
WriteLn(‘įveskite pirma skaičių’);
Readln(a);
WriteLn(‘įveskite antra skaičių’);
ReadLn(b);
if
a > b then WriteLn(‘didesnis skaičius yra ‘, a)
else
WriteLn(‘didesnis skaičius yra ‘, b);
ReadLn;
end.
10. program kvkb;
var k, a : integer;
begin
WriteLn(‘įveskite skaičių’);
Readln(a);
if a mod 2 = 1
then k:= a * a
else k:= a * a * a;
WriteLn(‘rezultatas’, k);
Readln;
end.
11. program minimumas;
var k, g, d, min : integer;
begin
WriteLn(‘įveskite pirmą skaičių’);
Readln(k);
WriteLn(‘įveskite antra skaičių’);
Readln(g);
WriteLn(‘įveskite trečia skaičių’);
Readln(d);
if k < g
then if k < d
then min := k
else min := d
else if g < d
then min := g
else min := d;
WriteLn(‘mažiausias skaičius yra ‘, min);
ReadLn;
end.
12. program didesnis;
var a, b, did : integer;
begin
WriteLn(‘įveskite pirma skaičių’);
Readln(a);
WriteLn(‘įveskite antra skaičių’);
ReadLn(b);
if a > b
then did := a
else did := b;
WriteLn(‘didesnis skaičius yra’, did);
ReadLn;
end.
13. program didesnis;
var a, b, c, d, min : integer;
begin
WriteLn(‘įveskite pirmąjį skaičių’);
Readln(a);
WriteLn(‘įveskite antrąjį skaičių’);
Readln(b);
WriteLn(‘įveskite trečiąjį skaičių’);
Readln(c);
WriteLn(‘įveskite ketvirtąjį skaičių’);
Readln(d);
if a < b
then if a < c
then if a < d
then min := a
else min := d
else if c < d