Sveiki, taigi 10 klasės informatikos kurse tenka visiems paragauti programavimo pradmenų. Vieniems sekasi geriau, kitiems blogiau... Bet visgi dauguma žmonių prašo pagalbos forume sprendžiant vienokius ar kitokius uždavinius. Todėl nusprendžiau su jumis pasidalinti savo programomis, kurias darėme praeitais metais ir dar keletu naudingų dalykėlių, kuriuos "pasiskolinau" iš mokyklos kompiuterio. :) Taigi štai: SPAUSTI ČIA Čia rasite testą iš kompiuterių raidos, po to dar keletą testų, padedančių suprasti sąlygos sakinius ir pan. ir dar informatikos pradmenų vadovėlį. :) Na, o žemiau pakopinsiu visas programas, kurias teko padaryti praeitais metais (taip taip, aš jas visas atsikopijuodavau į flashą). :D Manau, kad visiems duoda sudaryti maždaug panašias programas, todėl jei rasit kokią panašią, galėsit truputį pasiredaguot. :) Beveik visos yra su uždavinio sąlygomis, todėl neturėtų būti labai sunku susigaudyti. P.S. Nesmerkite už netvarkingą rašymą, galbūt dar kur ir klaidų įsivėlė ir t.t., nes praeitais metais buvau visiškas noobas, kaip ir dauguma dabartinių 10-okų (neįsižeiskit). :) Štai dar linkas su tom pačiom programom, tik išryškinta sintakse: SPAUSTI ČIA
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri surastu dvieju skaiciu didziausia bendra dalikli.}
program didziausias_bendras_daliklis;
var a, b, i, dbd:integer;
begin
WriteLn('Iveskite du skaicius:');
Readln(a, b);
for i:= 1 to a do
if (a mod 10= 0) and (b mod 10= 0) then
dbd:=i;
writeln ('DBD yra: ',dbd);
readln
end.
/--------------------------------------------------------------------------------------
Prasykite programa, kuri patikrintu ar is triju ivestu atkarpu galima sudaryti trikampi.
program trikampis;
var a, b, c: real;
begin
WriteLn('Iveskite tris atkarpas');
Readln(a, b, c);
if (a+b>c) and (b+c>a) and (a+c>b)
then writeln ('Galima sudaryti trikampi')
else writeln ('Negalima sudaryti trikampio');
readln
end.
/--------------------------------------------------------------------------------------
Prasykite programa, kuri patikrintu ar is triju ivestu atkarpu galima sudaryti trikampi, jei galima, tai koki? Lygiakrasti, lygiasoni ar statuji?
program trikampis;
var a, b, c: real;
begin
WriteLn('Iveskite tris atkarpas');
Readln(a, b, c);
if (a+b>c) and (b+c>a) and (a+c>b)
then begin
if (a=b) and (b=c) then writeln ('Trikampis lygiakrastis')
else if (a=b) or (b=c) or (a=c) then writeln ('Trikampis lygiasonis');
if (sqr(a)+ sqr(b)= sqr(c)) or (sqr(c)+ sqr(a)= sqr(b)) or (sqr(c)+ sqr(b)= sqr(a))
then writeln ('Trikampis status')
end
else writeln ('Negalima sudaryti trikampio');
readln
end.
/--------------------------------------------------------------------------------------
Parasykite programa kvadratinei lygciai spresti.
program kv_lygtis;
var a, b, c, d, x1, x2 :real;
begin
WriteLn('Iveskite a, b, c');
Readln(a, b, c);
if (a<>0) and (b<>0) and (c<>0)
then begin
d:=sqr(b)-4*a*c;
if d>0 then begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln ('x1 yra:',x1: 8: 2);
writeln ('x2 yra:',x2: 8: 2);
end
else writeln ('Diskriminantas neigiamas. Sprendiniu nera.');
end
else writeln ('Ivestas skaicius negali buti 0!');
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti. }
program Bevarde36;
var x, y: real;
begin
WriteLn('Iveskite x reiksme:');
Readln (x);
if x<0 then y:=0
else if x<=5 then y:=x
else y:=sqr(x)-3;
writeln ('Kai ', x:8:2, ' tai reiksme yra ', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti. }
program Bevarde37;
var x, y: real;
begin
WriteLn('Iveskite x reiksme');
Readln (x);
if x<-10 then y:=abs(x)
else if x<=-4 then y:=-2*x
else if x<4 then y:=sqr(x)
else if x<=10 then y:=sqr(x)-x
else if x>10 then y:=7;
writeln ('Kai ', x:8:2, 'tai reiksme yra', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti. }
program Bevarde38;
var x, y: real;
begin
WriteLn('Iveskite x reiksme');
Readln (x);
if x<=-13 then y:=sqr(x)-2
else if x<-2 then y:=6
else if x=-2 then y:=0
else if x>-2 then y:=x+2;
writeln ('Kai ', x:8:2, 'tai reiksme yra', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Duotas naturalusis keturzenklis skaicius. Parasyti programa, kuri suformuotu
skaiciu isbraukiant du vidurinius skaitmenis ir surastu visu skaitmenu suma,
jeigu skaitmenu sandauga dalijasi is 3 be liekanos. Priesingu atveju surastu
visu skaitmenu geometrini vidurki.}
program keturzenklis;
var n, a, b, c, d, k, s :integer;
g: real;
begin
WriteLn('Iveskite keturzenkli skaiciu:');
readln (n);
a:= n mod 10;
b:= n div 10 mod 10;
c:= n div 100 mod 10;
d:= n div 1000;
if (a*b*c*d) mod 3=0 then begin
k:= d*10+a;
writeln ('Du krastiniai skaiciai:', k);
s:= a+b+c+d;
writeln ('Skaiciu suma yra:', s);
end
else begin
g:= sqrt(a*b*c*d);
writeln ('Skaiciu geometrinis vidurkis:', g:8:2);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa rezultato y reiksmei apskaiciuoti.}
program Bevarde38;
var x, y: real;
begin
WriteLn('Iveskite x reiksme');
Readln (x);
if x<2 then y:=x-5
else if x<=7 then y:=sqr(x)+2*x
else if x<27 then y:=18
else if x>=27 then y:=x-sqr(x);
writeln ('Kai ', x:8:2, 'tai reiksme yra', y:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą kuri, bet kuriame sveikųjų skaičių intervale
suskaičiuotų skaičių besibaigiančių trim sandaugą ir juos atspausdintų,
bei surastų skaičių besidalančių iš 7 aritmetinį vidurkį.
Jei intervale nurodytų skaičių nebuvo, tai programa turi parašyti,
kad tokių skaičių nėra.}
program valentino_diena;
var a, b, san, k, i: integer;
s: real;
begin
WriteLn('Įveskite intervalo ribas:');
Readln(a, b);
write ('Skaičiai besibaigiantys trim: ');
san:=1;
s:=0;
k:=0;
for i:= a to b do
begin
if i mod 10 = 3 then begin
san:= san * i;
write(i, ' ')
end;
if i mod 7 = 0 then begin
s:=s+i;
k:=k+1
end;
end;
writeln;
if san=1 then writeln ('Skaičių besibaigiančių trim nėra.')
else writeln ('Skaičių besibaigiančių trim sandauga: ', san);
if k=0 then writeln ('Skaičių dalių iš 7 nėra.')
else writeln ('Skaičių dalių iš 7 vidurkis yra:', s/k:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasyti programa, kuri bet kuriame sveikuju skaiciu intervale surastu
skaiciu besidalanciu is astuoniu sandauga (jei intervale nurodytu skaiciu
nebuvo tai rasyti besidalanciu is astuoniu skaiciu nera) ir lyginiu skaiciu
aritmetini vidurki, taip pat atspausdintu skaicius, kurie baigiasi sesiais.}
program ketvirtadienis;
var a, b, san, k, s, i: integer;
begin
WriteLn('Iveskite intervalo ribas: ');
Readln (a, b);
Write ('Skaiciai besibaigiantys sesiais: ');
san:= 1;
s:= 0;
k:= 0;
for i:= a to b do
begin
if i mod 8 = 0 then san:= san * i;
if i mod 2 = 0 then begin
s:= s + i;
k:= k + 1;
end;
if i mod 10 = 6 then
write (i, ' ');
end;
writeln;
if san=1 then writeln ('Skaiciu besidalanciu is astuoniu nera.')
else writeln ('Skaiciu besidalanciu is astuoniu sandauga: ', san);
if k <> 0 then
writeln ('Skaiciu besidalanciu is astuoniu vidurkis: ', s/k:8:2);
readln
end.
/--------------------------------------------------------------------------------------
{Parasyti programa, kuri bet kuriame intervale suskaiciuotu,
kiek yra skaiciu besibaigianciu devyniais(jei tokiu nebuvo, rasyti kad nera)
skaiciu daliu is triju aritmetini vidurki ir juos atpausdinti ir skaiciu
besibaigianciu septyniais sandauga.}
program zudikas_mirs_visi;
var a, b, san, k, k2, s, i: longint;
begin
WriteLn('Iveskite intervalo ribas: ');
Readln(a, b);
write ('Skaiciai dalus is 3: ');
san:=1;
s:=0;
k:=0;
k2:=0;
for i:=a to b do
begin
if i mod 10=9 then
k:=k+1;
if i mod 3=0 then begin
s:=s+i;
k2:=k2+1;
end;
if i mod 10=7 then
san:=san*i;
end;
writeln;
if k=0 then
writeln('Skaiciu besibaigianciu 9 nera')
else writeln ('Sk besib 9: ', k);
if k2<>0 then
writeln ('Sk besib 3 vid yra: ', s/k2:8:2);
if san<>1 then
writeln ('Sk besib 7 san.', san);
readln;
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri bet kuriame naturaliuju skaiciu intervale
atspausdintu skaicius besibaigiancius 7 ir suskaiciuotu nelyginiu skaiciu
aritmetini vidurki, skaiciu besidalanciu is 4 sandauga ir skaiciu
besibaigianciu 6 kieki}
program ketvirtadienis;
var a,b,i,s,k,n,san:integer;
begin
WriteLn('Įveskite intervalo ribas');
readln (a,b);
write (' Skaičiai besibaigiantys 7: ');
san:=1;
n:=0;
for i:= a to b do
begin
if i mod 2=1 then begin
s:=s+i;
k:=k+1;
end;
if i mod 4=0 then san:=san*i;
if i mod 10=7 then write (' ', i);
if i mod 10=6 then n:=n+1;
end;
writeln;
writeln (' skaiciu besibaigianciu 4 sandauga ', san );
writeln (' skaiciu besibaigianciu 6 kiekis ', n );
if k<>0 then writeln (' nelyginiu skaiciu aritmetinis vidurkis', s/k:8:2);
Readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri bet kuriame sveikuju skaiciu intervale suskaiciuotu
skaiciu besidalanciu is 9 aritmetini vidurki, skaiciu besibaigianciu 8 sandauga,
skaiciu besibaigianciu 7 suma ir juos atspausdintu, skaiciu besidalanciu is 4
kieki. Jei tokiu skaiciu nebuvo tai turi spausdinti, kad tokiu skaiciu nera.}
program intervalas;
var a, b, s, k, s7, n, i, san :integer;
begin
WriteLn('Iveskite intervalo ribas');
Readln (a,b);
san:=1;
s:=0;
k:=0;
s7:=0;
n:=0;
for i:= a to b do
begin
if i mod 9=0 then begin
s:= s+i;
k:=k+1;
end;
if i mod 10=8 then san:= san *i;
if i mod 10=7 then begin
s7:= s7+i;
end;
if i mod 4=0 then n:=n+1
end;
writeln;
writeln ('Skaiciu besibaigianciu 8 sandauga: ', san);
writeln ('Skaiciu besibaigianciu 7 suma: ', s7);
if n<>0 then writeln ('Skaiciu besibaigianciu 4 kiekis: ', n)
else writeln ('Skaiciu besidalanciu is 4 nera.');
if k<>0 then writeln ('Skaiciu besibaigianciu 9 aritmetinis vidurkis', s/k:8:2);
readln
end.
/--------------------------------------------------------------------------------------
Parašyti programą, kuri surastų mažiausią skaičiaus skaitmenį, atspausdintų atbulą, surastų skaitmenų besidalančių iš trijų artimetinį vidurkį ir lyginių nenulinių skaitmenų sandaugą.
program ankstyvas_rytas;
var n, s, san, atb, k, ps, maz :integer;
begin
WriteLn('Iveskite naturaluji skaiciu');
Readln (n);
k:=0; san:=1; atb:=0; maz:=9;
while n>0 do
begin
ps:=n mod 10;
if maz > ps then maz:=ps;
if ps mod 3 = 0 then begin
k:=k+1;
s:=s+ps;
end;
atb:=atb*10+ps;
if (ps mod 2=0) and (ps<>0) then
san:=san*ps;
n:= n div 10;
end;
Writeln ('Skaiciaus lyginiu skaitmenu sandauga yra ', san);
Writeln ('Maziausias skaiciaus skaitmuo yra ', maz);
if k<>0 then Writeln ('Skatmenu besidalanciu is triju vidurkis ', s/k:8:2);
Writeln ('Ivestas skaicius atbulai ', atb);
Readln;
end.
/--------------------------------------------------------------------------------------
Parašyti programą, kuri surastų didžiausią ir mažiausią skaičiaus skaitmenis.
readln(n);
did:=0;
maz:=9;
while n>0 do
begin
ps:=n mod 10;
if did < ps then did:= ps;
if maz > ps then maz:=ps;
n:= n div 10;
end;
/--------------------------------------------------------------------------------------
program dalikliai;
var a, i: integer;
begin
WriteLn('Įveskite skaičių');
Readln(a);
writeln('Skaičiaus ', a,' dalikliai: ');
for i:= 1 to a do
if a mod i=0 then writeln(i, ' ');
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri apskaiciuotu skaiciaus faktoriala.}
program skaiciaus_faktorialas;
var n, i, f:integer;
begin
WriteLn('Iveskite skaiciu:');
Readln(n);
f:=1;
for i:= 1 to n do
f:=f*i;
writeln('Skaiciaus ',n,' faktorialas yra: ',f);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri skaiciu 2 pakeltu n laipsniu.}
program skaicius_pakeltas_n_laipsniu;
var n, i, l:integer;
begin
WriteLn('Iveskite laipsni, kuriuo kelsite skaiciu 2:');
Readln(n);
l:=1;
for i:= 1 to n do
l:=l*2;
writeln('Skaicius 2 pakeltas ',n,' laipsniu yra: ',l);
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri bet koki skaiciu pakeltu naturaliuoju laipsniu.}
program skaicius_pakeltas_naturaliuoju_laipsniu;
var a, b, i, l:integer;
begin
WriteLn('Iveskite pagrinda ir laipsni:');
Readln(a, b);
l:=1;
for i:= 1 to n do
l:=l*a;
writeln('Skaicius a pakeltas ',n,' laipsniu yra: ',l);
readln
end.
/--------------------------------------------------------------------------------------
{Duotas natūralusis penkiaženklis skaičius.
Pparašykite programą, kuri, jei įvestas skaičius lyginis surastų šio
skaičiaus visų skaitmenų sandaugą ir vidurkį. Priešingu atveju
atspausdinti skaičių atbulai.}
program penkiazenklis;
var a, b, c, d, e, n, san, atb: longint;
vid: real;
begin
WriteLn('Įveskite penkiaženklį skaičių:');
Readln(n);
a:= n mod 10;
b:= n div 10 mod 10;
c:= n div 100 mod 10;
d:= n div 1000 mod 10;
e:= n div 10000;
if a mod 2=0 then begin
san:= a*b*c*d*e;
writeln ('Įvestų skaičių sandauga yra: ', san);
vid:= (a+b+c+d+e)/5;
writeln ('Įvestų skaičių vidurkis yra:', vid:5:2);
end
else begin
atb:= a*10000 + b*1000 + c*100 + d*10 + e;
writeln ('Atbulas skaičius yra: ', atb)
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parasykite programa, kuri patikrintu ar ivestas skaicius yra pirminis.
d=dalikliai}
program pirminis;
var n, i, d:integer;
begin
WriteLn('Iveskite skaiciu:');
Readln(n);
d:=0;
for i:= 1 to n do
if n mod i = 0 then
d:= d + 1;
if d=2 then
writeln ('Skaicius pirminis')
else writeln ('Skaicius sudetinis');
readln
end.
/--------------------------------------------------------------------------------------
program metai;
var x, y, s, d: real;
begin
WriteLn('Ei zasine yvesk du skaicius');
Readln (x, y);
s := x + y;
d := x * y;
writeln ('Sudejus ',x: 5: 2,' ir ',y: 5: 2,' bus ',s: 5: 2);
writeln ('Sudauginus ',x: 5: 2,' ir ',y: 5: 2,' bus ',d: 5: 2);
readln
end.
/--------------------------------------------------------------------------------------
Sekos.
Duota sveikųjų skaičių seka. Sekos pabaiga 0.
Parašykite programą, kuri surastų visų sekos skaičių aritmetinį vidurkį.
program Bevardė56;
var n, s, k: longint;
begin
writeln ('Įveskite pirmą sekos narį. Sekos pabaiga - nulis.');
readln (n);
s:=0;
k:=0;
while n<>0 do
begin
s:=s+n;
k:=k+1;
writeln ('Įveskite kitą sekos narį: ');
readln (n);
end;
if k<>0 then writeln ('Skaičiaus aritmetinis vidurkis yra: ', s/k:8:2);
readln;
end.
/--------------------------------------------------------------------------------------
Duota sveikųjų skaičių seka. Sekos pabaiga - nulis. Parašykite programą, kuri suskaičiuotų, kiek sekoje yra neigiamų skaičių, skaičių, kurių paskutinis skaitmuo 4 sandaugą ir skaičių besidalančių iš 3 aritmetinį vidurkį. Jei kokių tai skaičių nebuvo, tai turi rašyti, jog tokių skaičių nebuvo.
program seka;
var n, s, k, kn, san : integer;
begin
WriteLn('Įveskite pirmą sekos narį. Sekos pabaiga - nulis.');
Readln(n);
s:=0; k:=0; kn:=0; san:=1;
while n <>0 do
begin
if n<0 then kn:=kn+1;
if n mod 10=4 then san:=san*n;
if n mod 3=0 then begin
s:=s+n;
k:=k+1;
end;
writeln('Įveskite kitą sekos narį');
readln(n);
end;
if kn>0 then writeln('Neigiamu skaiciu yra', kn)
else writeln('Neigiamu skaiciu nera');
if san>0 then writeln('Skaiciu, kuriu pask.skaitmuo 4 sandauga ', san)
else writeln('Skaiciu, kuriu pask.skaitmuo 4 nera.');
if k<>0 then writeln('Skaiciu,besidalinanciu is 3 aritm.vid ', s/k:8:2)
else writeln('Skaiciu, besidalinanciu is 3 nera.');
readln;
end.
/--------------------------------------------------------------------------------------
{Duoda seka. Sekos pabaiga - nulis. Parasyti programa, kuri surastu
didziausia ir maziausia sekos nari.}
program Bevarde56;
var n, did, maz: longint;
begin
writeln ('Iveskite pirma sekos nari. Sekos pabaiga - nulis.');
readln (n);
did:=n;
maz:=n;
while n<>0 do
begin
if n > did then did:=n;
if n<maz then maz:=n;
writeln ('Iveskite kita sekos nari: ');
readln (n);
end;
writeln ('Didziausias sekos narys yra ', did, ' Maziausias sekos narys yra ', maz);
readln;
end.
/--------------------------------------------------------------------------------------
{Duota sveikuju skaiciu seka. Sekos pabaiga - nulis. Parasykite programa,
kuri suskaiciuotu kiek sekoje yra skaiciu mazesniu uz simta. Sandauga,
skaiciu, kurie baigiasi 4. Ir didziausia sekos nari. Jei nera tai nera.}
program Bevarde56;
var n, san, k, did: longint;
begin
writeln ('Iveskite pirma sekos nari. Sekos pabaiga - nulis.');
readln (n);
san:=1;
k:=0;
did:=n;
while n<>0 do
begin
if n mod 10=4 then san:=san*n;
if n>did then did:=n;
if n<100 then k:=k+1;
writeln ('Iveskite kita sekos nari: ');
readln (n);
end;
if k<>0 then writeln('Skaiciu mazesniu uz 100 yra: ', k)
else writeln('Skaiciu mazesniu uz 100 nera.');
if san<>0 then writeln('skaiciu,kuriu pask.skaitmuo 4 sandauga ', san)
else writeln('skaiciu,kuriu pask.skaitmuo 4 nera');
writeln('Didziausias sekos narys: ', did);
readln;
end.
/--------------------------------------------------------------------------------------
program blahblahblah;
var n, a, b, c, san, atb: integer;
vid: real;
begin
WriteLn('Yvesk trizenkli sk.');
Readln (n);
a:= n mod 10; {paskutinis skaitmuo}
b:= n div 10 mod 10;
c:= n div 100;
if (a>b) and (c>b)
then begin
atb:= a*100 + b*10 + c;
san:= a*b*c;
writeln ('Atbulas yra:', atb ,'ir skaitmenu sandauga:', san)
end
else begin
vid:= (a+b+c)/3;
writeln ('Aritmetinis vidurkis:', vid:8:2);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, spausdinančią visus triženklius skaičius, kurių kiekvienas kitas skaitmuo vienetu didesnis už prieš tai buvusį, skaičiuojančią tų skaičių sumą ir kiek yra tokių skaičių.}
program Bevard?0;
var a,b,c,d ,sum, k:longint;
begin
sum :=0;
k:=0;
for a:=100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if (b+1=c) and (b+2=d) then
begin
writeln (a);
sum:=sum+a;
k:=k+1;
end;
end;
writeln ('suma ', sum);
writeln ('kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, spausdinančią visus keturženklius skaičius, kurių kiekvienas skaitmuo du kartus didesnis už prieš tai buvusį, skaičiuojančią šių skaičių skirtumo modulį ir kiek yra tokių skaičių.}
program Bevarde0;
var a,b,c,d ,e,sk, k:longint;
begin
k:=0;
sk:=0;
for a:=1000 to 9999 do
begin
b := a div 1000;
c := a div 100 mod 10;
d := a div 10 mod 10;
e := a mod 10;
if (b*2=c) and (c*2=d) and (d*2=e) then
begin
writeln (a);
sk:=sk - a;
k:=k+1;
end;
end;
sk:=abs(sk);
writeln ('Skirtumo modulis ', sk);
writeln ('Kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, skaičiuojančią visų dviženklių skaičių, dalių iš penkių, kvadratų sumą ir kiek yra tokių dviženklių skaičių.}
program Bevarde0;
var a,sum, k:longint;
begin
k:=0;
sum:=0;
for a:=10 to 99 do
begin
if a mod 5 = 0 then
begin
sum:=sum + sqr (a);
k:=k+1;
end;
end;
writeln ('Suma ', sum);
writeln ('Kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, kuri sumuotų visus natūraliųjų skaičių intervalo [m;n] skaičius, dalius iš keturių, ir suskaičiuotų, kiek tame intervale yra tokių skaičių.}
program Bevarde0;
var a,m,n,sum,k:longint;
begin
writeln ('Iveskite m ir n');
readln(m,n);
k:=0;
sum:=0;
for a:=m to n do
if a mod 4 = 0 then
begin
sum:=sum + a;
k:=k+1;
end;
writeln ('Suma ', sum);
writeln ('Kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, skaičiuojančią įvesto nelyginio skaičiaus dvigubą faktorialą. Pvz.: 5!! = 1 * 3 * 5, 11!! = 1 * 3 * 5 * 7 * 9 * 11.}
program Bevarde0;
var a,f,x:longint;
begin
writeln ('Iveskite x');
readln(x);
f:=1;
for a:=1 to x do
begin
if x mod 2 <> 0 then
if a mod 2 <> 0 then
f:=f*a;
end;
writeln ('Faktorialas ', f);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, skaičiuojančią kiek sveikųjų skaičių intervale [a;b] yra skaičių, kurie dalijasi iš septynių.}
program Bevarde0;
var a,b,i, k:longint;
begin
writeln ('Iveskite [a;b]');
readln(a,b);
k:=0;
for i:=a to b do
begin
if i mod 7 = 0 then
k:=k+1;
end;
writeln ('Kiekis ', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, kuri skaičiuotų visų triženklių skaičių, lygių savo skaitmenų kubų sumai, sumą ir kiekį.}
program Bevarde0;
var a,b,c,d ,sum, k:longint;
begin
sum :=0;
k:=0;
for a:=100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if (b*b*b+c*c*c+d*d*d)=a then
begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln ('suma ', sum);
writeln ('kiekis', k);
readln
end.
/--------------------------------------------------------------------------------------
{Sudarykite programą, kuri skaičiuotų, kiek sveikųjų skaičių intervale [a;b] yra lyginių ir nelyginių skaičių, suskaičiuotų lyginių ir nelyginių skaičių sumas ir jas palygintų. Pvz., jei turime [5;10], tai jame yra 3 lyginiai skaičiai, kurių suma lygi 24 ir 3 nelyginiai skaičiai, kurių suma lygi 21. Didesnė yra lyginių skaičių suma.}
program Bevarde0;
var a,b,i, knelyg, sumnelyg, klyg, sumlyg:longint;
begin
writeln ('Iveskite [a;b]');
readln(a,b);
knelyg:=0;
sumlyg:=0;
klyg:=0;
sumnelyg:=0;
for i:=a to b do
if i mod 2 = 0
then
begin
klyg:=klyg+1;
sumlyg:=sumlyg+i;
end
else
begin
knelyg:=knelyg+1;
sumnelyg:=sumnelyg+i;
end;
writeln ('Kiekis nelyginiu ', knelyg);
writeln ('Kiekis lyginiu ', klyg);
writeln ('Suma nelyginiu ', sumnelyg);
writeln ('Suma lyginiu ', sumlyg);
if sumlyg > sumnelyg
then writeln ('Didesne suma lyginiu.')
else writeln ('Didesne suma nelyginiu.');
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurie yra du kartus mažesni už jiems atbulus skaičius.}
program Bevarde0;
var a,b,c,d,atb:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
atb:=d*100+c*10+b;
if atb div a = 2 then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurių vidurinysis skaitmuo yra du kartus didesnis už kraštinių skaitmenų sumą.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if c = 2*(b+d) then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurie dalijasi iš visų savo skaitmenų.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if (b<>0) and (c<>0) and (d<>0) then
if (a mod b = 0) and (a mod c = 0) and (a mod d = 0) then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius palindromus (palindromas – skaičius, vienodai skaitomas iš dešinės į kairę ir iš kairės į dešinę, pvz. 242).}
program Bevarde0;
var a,b,c,d, atb:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
atb:=d*100+c*10+b;
if atb = a then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus triženklius skaičius, kurių pirmasis skaitmuo penkiais mažesnis už paskutinį.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if b = d-5 then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
{Parašykite programą, kuri atspausdintų visus nelyginius triženklius skaičius, besidalijančius bent iš vieno savo skaitmens.}
program Bevarde0;
var a,b,c,d:integer;
begin
for a:= 100 to 999 do
begin
b := a div 100;
c := a div 10 mod 10;
d := a mod 10;
if a mod 2 <> 0 then
if (b<>0) and (c<>0) and (d<>0) then
if (a mod b = 0) or (a mod c = 0) or (a mod d = 0) then
writeln (a);
end;
readln
end.
/--------------------------------------------------------------------------------------
Nežinomų kartojimų skaičiaus ciklas.
Surasti natūraliojo skaičiaus pirmąjį skaitmenį.
while n>9 do
n:=n div 10
writeln ('pirmas skaitmuo ", n);
/--------------------------------------------------------------------------------------
Surasti skaičiaus skaitmenų sumą (ps = paskutinisskaiciausskaitmuo).
s:=0;
m:=n;
while n>0 do
begin
ps:= n mod 10;
s:=s + ps
n:=n div 10
end;
writeln(skaiciaus ',m,'skaitmenusuma", s);
/--------------------------------------------------------------------------------------
Surastų lyginių skaitmenų sumą.
readln(n);
s:=0;
m:=n;
while n>0 do
begin
ps:= n mod 10;
if ps mod 2 = 0 then s:=s+ps,
n:=n div 10
end;
writeln(skaiciaus ',m,'skaitmenusuma", s)
/--------------------------------------------------------------------------------------
Surasti skaitmenų aritmetinį vidurkį.
readln(n);
s:=0;
m:=n;
k:=0;
while n>0 do
begin
ps:= n mod 10;
s:=s+ps;
k:=k+1;
n:=n div 10
end;
if k<> 0 then writeln('skaitmenu aritmetinis vidurkis', s/k:8:2)
/--------------------------------------------------------------------------------------
Parašyti programą, kuri suformuotų atbulą skaičių.
readln(n);
atb:=0;
while n>0 do
begin
ps:= n mod 10
atb:= atb*10+ps;
n:= n div 10;
end;
writeln ('atbulas skaicius: ', atb);
/--------------------------------------------------------------------------------------
{Duotas naturalusis skaicius. Suraskite nelyginiu skaitmenu aritmetini
vidurki ir visu skaitmenu sandauga, lyginiu suma ir sufomuoti atbula skaiciu.}
program ciklas_while;
var a, nelyg, san, k, atb, ps :integer;
begin
WriteLn('Įveskite natūralųjų skaičių');
Readln (a);
k:=0; nelyg:=0; san:=1; atb:=0;
while a<>0 do
begin
ps:= a mod 10;
if ps mod 2 <>0 then begin
k:=k+1;
nelyg:=nelyg+ps;
end;
atb:=atb*10+ps;
san:=san*ps;
a:= a div 10;
end;
if k<>0 then Writeln ('Skaiciaus nelyginiu skaitmenu vidurkis yra ', nelyg/k:8:2);
Writeln ('Skaiciaus skaitmenu sandauga yra ', san);
Writeln ('Ivestas skaicius atbulai ', atb);
Readln;
end.
/--------------------------------------------------------------------------------------
Perskaičiau kažkur,kad pas jus galima prisigaudyti smulkių (o gal net stambių) darbų darbelių, tai mąstau kogi nepabandžius. Aišku iškart po šio mąstymo atėjo kitas mąstymas: "o ką aš moku?"
Tvarkiaus kadais su apskaita. Ne, šitas nuobodus, išmetam; Įvedinėjau duomenis į kompiuterį. Jau labiau į temą,bet vis dar nuobodu; Tvarkiau ilgą laiką, visą savo žalią paauglystę(geri laikai buvo...), vieną fansaitą, tad naujienos, straipsnių vertimas ir kitokios panašios rašliavos man ne naujiena, taip pat html nebijau,bet ir nemyliu; Mokykloj baisiai gerai rašiau visokius ten esė, leidau su chebra mėgėjiškus žurnaliukus savam ratui ir prisidėjau prie mokyklos laikraščio, kai ten dar buvau, tad nemanau,kad man būtų baisu ir rimtesnių autorinių straipsnių rašymas; Vakarėliuose galiu elegantiškai maišyti skanius kokteiliukus, turiu profesionalios barmenės diplomą:unsure:) Daugiau metų nei norėjau teko prasedėt tokioj skylėj, kur mane išmokė piešti, tad jei kam reikia senų gerų oldschoolinių iliustracijų pieštų ranka ar šiaip nesugalvojat, ką mylimai močiutei padovanot, aš čia; Na o pabaigai galėčiau jums būt asmeninė auklė:)))
Žodžiu, jei kam reikia saldžiarūgščio subjektyvumo ar žvitrios moteriškos akies, kreipkitės:)
1. Telefono pokalbis trunka 30 sek. 2. Filmuose nuogas rodo dažniausiai moteris. 3. Tu supranti apie tankus. 4. Penkių dienų atostogoms reikia tik vieno lagamino. 5. Penktadienio vakare rodo arba futbolą, arba krepšinį. 6. Tau nereikia sekti tavo draugų seksualinio gyvenimo. 8. Pats gali atsidaryti visus turimus stiklainius. 9. Seni draugai padėję ant tavo svorio pokyčių. 10. Kirpyklos ir valyklos neapvagia tavęs iki paskutinio skatiko. 11. Kai perjunginėji TV kanalus, tau nereikia sustoti ilgiau kaip 5 sek. 12. Tavo užpakalis niekada neturi įtakos bandymui įsidarbinti. 13. Visi tavo orgazmai tikri. 14. Tavęs nepuola vaikinai su kaukėm,nebent tu anksčiau juos subaladojai. 15. Tau nereikia su savim visur tąsytis krepšio reikalingų daikčiukų. 16. Tavo pavarde niekad nesikeičia. 17. Tu gali nepakloti lovos viešbutyje. 18. Kai tave kritikuoja, tau nereikia panikuoti, kad visi aplinkui slapta tavęs nekenčia 22. Tu gali nueiti i dušą ir būti pasiruošęs eiti per 10 minučių. 23. Vestuvių planai pasirūpina patys savaime. 24. Jei kas nors pamiršta tave kur nors pakviesti, jis vis dar gali būti tavo draugu. 25. Tavo apatiniai kainuoja 10 Lt už 3. 26. Tau nereikia skustis žemiau kaklo. 27. Nė vienas iš tavo bendradarbių negali tavęs pravirkdyti. 28. Tau nereikia miegoti šalia plaukuoto užpakalio kiekvieną naktį. 29. Jei tu 34-verių viengungis, niekas nekreipia i tai dėmesio. 30. Tu gali užrašyti savo vardą ant sniego. 31. Tu gali dalyvauti net olimpinėse myžimo varžybose. 32. Viskas ant tavo veido visada natūralios spalvos. 33. Šokoladas yra tik dar vienas užkandis. 34. Tu gali tapti prezidentu (šiame gyvenime). 35. Tu gali tyloje mėgautis važiavimu masina keleivio vietoje. 36. Gėlės sutvarko viską. 37. Tau nusišvilpt ant kitų žmonių jausmų. 38. Tu galvoji apie seksą 90% laiko, kai nemiegi. 39. Tu gali dėvėti baltus marškinėlius prie vandens. 40. Trys batų poros yra daugiau nei pakankamai. 41. Tu gali valgyti bananus įrankių parduotuvėje. 42. Tu gali sakyti bet ką ir nesukt galvos, kas ką pagalvos. 43. Niekas nenustoja pasakoti gero nešvankaus anekdoto, kai įeini i kambarį 44. Gali nusiimti marškinėlius karstą dieną. 45. Mašinų pardavėjai tau gali sakyti tiesą. 46. Tau vienodai ar kas nors pastebės tavo nauja šukuoseną. 47. Tu gali valandų valandas tyloje žiūrėti rungtynes su savo draugu ir negalvoti "jis turbūt ant manęs pyksta". 48. Visas pasaulis yra tavo pisuaras. 49. Viena nuotaika visą laiką. 50. Tu niekada nevažiuosi į kitą degalinę vien todėl, kad šita "šlykšti". 51. Tu žinai mažiausiai 20 būdų kaip atidaryti alaus butelį. 52. Gali sėdėti išsiskėtęs nepriklausomai nuo to ką apsirengęs. 53. Žili plaukai ir raukšlės tik prideda charakterio. 54. Vestuvių suknelė - 2000 Lt. Smokingo nuoma - 50Lt. 55. Tau vienodai ką apie tave šneka tau už nugaros. 56. Distancinis pultas yra tavo ir tiktai tavo. 57. Žmonės niekada nespokso tau i krūtinę, kai su jais kalbiesi. 58. Tu gali užšokti pas draugą pakalbėti be mažos dovanėlės. 59. Tu gali pirkti sargius ir vaistininkas neįsivaizduoja tavęs nuogo. 60. Jei nepaskambinsi draugui kada žadėjai, jis nepasakos visiem draugam, kad pasikeitei. 61. Jei koks kitas vaikinas pasirodo vakarėlyje apsirengęs taip pat kaip tu, jūs dar galite tapti draugais visam gyvenimui. 62. Princeses Di mirtis buvo tik dar vienos laidotuvės. 63. Tu niekada nepraleisi progos pasimylėti dėl to kad tu "ne nuotaikoj". 64. Jei kas nors mechaninio neveikia, tu gali jam tvoti su plaktuku arba trenkti i priešingą kambario sieną. 65. Pornofilmai yra sukurti galvojant apie tave. 66. Tau nereikia atsiminti niekieno gimtadienių ir sukaktuvių. 67. Visada kuriuo nors kanalu rodo kokias nors rungtynes
Plx gavo reakciją nuo Lincius Kodėl geriau būti vyru ?