Pora informatikos uždavinių

Sveiki,

niekad nepatiko man žmonės, kurie prašo padaryt namų darbų, bet šį kartą neturiu kitos išeities.

Galbūt kam nors nesunku, ar netyngi pasitikrinti savęs ir galėtų išspręsti šiuos du uždavinukus:

1. Polindromas - tai toks skaičius, kuris skaitomas iš abiejų pusių. Parašykite programą, kuri nustatytų

ar duotas n-ženklis skaičius yra polindromas. Pvz.: 1221 - polindromas.

2. Įvedami skaičiai klaviatūra, seka baigiama 0. Parašykite programą, kuri paskaičiuoja kiek įvestų skaičių patenka į intervalą [5; 15]

P.S Neskatinkit manęs mokintis pačiam ir stengtis suprasti šiuos uždavinius - po pirmo pusmečio informatikos atsisakysiu.

P.S.S DIDELIS AČIŪ padejusiam/iem :)

1.

program Noname3;
var stri : string;
   sk, klaida, x, len, i  : integer;
begin
 WriteLn('iveskite skaiciu: ');
 ReadLn(sk);
 x := 1;
 klaida := 0;
    Str(sk, stri);
    len := Length(stri);
    For i := len downto 1 do
        begin
        if stri[i] <> stri[x] then klaida := klaida + 1;
        x := x + 1;
        end;
    if klaida = 0 then WriteLn('Polindromas')
                  else WriteLn('Nepolindromas');
 ReadLn;
end.

2.

program Noname3;
Var  x, i  : integer;

begin
 WriteLn('Rasykite seka(0 baigia): ');
 ReadLn(x);
While x <> 0 do
 Begin
 ReadLn(x);
   if (x >= 5) And (x <= 15) then i := i + 1;
 end;
 WriteLn('I intervala [5;15] patenka ',i,' skaiciai');
 ReadLn;
end.

Sveiki,

niekad nepatiko man žmonės, kurie prašo padaryt namų darbų, bet šį kartą neturiu kitos išeities.

Galbūt kam nors nesunku, ar netyngi pasitikrinti savęs ir galėtų išspręsti šiuos du uždavinukus:

 

1. Polindromas - tai toks skaičius, kuris skaitomas iš abiejų pusių. Parašykite programą, kuri nustatytų

ar duotas n-ženklis skaičius yra polindromas. Pvz.: 1221 - polindromas.

 

2. Įvedami skaičiai klaviatūra, seka baigiama 0. Parašykite programą, kuri paskaičiuoja kiek įvestų skaičių patenka į intervalą [5; 15]

 

P.S Neskatinkit manęs mokintis pačiam ir stengtis suprasti šiuos uždavinius - po pirmo pusmečio informatikos atsisakysiu.

P.S.S DIDELIS AČIŪ padejusiam/iem :)

1.

program polidnromas;

procedure polindromas(var sk : longint; var ask :longint);
var skaicius, atvsk : longint;
begin
   skaicius := sk;
   atvsk := 0;
   while skaicius > 10 do
   begin
       atvsk := atvsk + skaicius mod 10;
       atvsk := atvsk * 10;
       skaicius := skaicius div 10;
   end;
   atvsk := atvsk + skaicius;
   ask := atvsk;
end;

var i, x  : longint;
begin
WriteLn('Iveskite skaiciu'); ReadLn(i);
polindromas(i,x);

if i = x then writeln('polindromas')
        else writeln('nepolindromas');

end.

2.

program antra;
var sk:real;
   i:integer;
begin
   WriteLn('Iveskite seka, kuri baigias 0');
   repeat
   ReadLn(sk);
   If (sk >= 5) and (sk <=15) then i := i +1;
   until sk = 0;
   WriteLn('Skaiciu patenkanciu i intervala [5;15] is viso sekoje yra ',i);
end.

Ačiū!