dq

dq

Visiškai paprasti uždavinukai, jei "neikerti" sakyčiau daugiau mokytis reikia. :) Bandžiau padaryt kuo paprasčiau ir su visais paaiškinimais. Jei kas neaišku, klausk.

1.

program seka;
var a,sk:integer;
begin
a:=1;
sk:=0;
 while a<>0 do //kol skaičius nelygus nuliui vykdome
  begin
ReadLn(a); 
 if (a>9) and (a<100) then //jei įvestas skaičius dviženklis
  sk:=sk+1; //kaupiame dviženklių skaičių kiekį
  end;
WriteLn('Dviženklių skaičių:',sk);
Readln;
end.

2.

program sandauga;
var n,i,s:integer;
begin
ReadLn(n);
s:=1;
 while n>9 do //kol skaičius netampa vienženklis vykdome
  begin
i:=n mod 10; //atskiriame paskutinį skaitmenį naudojimui
 if i<>0 then  //jei jis nelygus nuliui
  s:=i*s; //kaupiam sandaugą
n:=(n-i) div 10; //atskiriame paskutinį skaitmenį nuo skaičiaus
  end;
 s:=n*s; //priskaičiuojam paskutinį skaitmenį prie sandaugos
WriteLn(s);
Readln;

3.

program atv;
var n,s,i:integer;
begin
s:=0;
ReadLn(n);
 while n>9 do //kol skaičius netampa vienženklis vykdome
  begin
i:=n mod 10; //atskiriame paskutinį skaitmenį naudojimui
n:=(n-i) div 10; //atskiriam paskutinį skaitmenį nuo skaičiaus
s:=(i+s)*10; //kuriam atvirkštinį skaičių
  end;
s:=s+n; //užbaigiam atvirkštinį skaičių
WriteLn('Atvirkščias skaičius:',s);
Readln;
end.