reikalinga pagalba su freepascal (skubiai)

sveiki.sedziu egze,liko viena uzduotis,labai reikia greitos pagalbos.

uzduotis skamba taip:

Duotas sveikas skaicius.Kiek jis turi skaitmenu, kurie dalijasi is 5? Naudoti cikla while

laukiu atsakymu gerieji zmones :)

išskaidai tą skaičių skaitmenimis,po to tikrini tos skaitmenius ar dalinasi iš 5

o kad zinociau kaip,reikia parasyti visa programa atliekancia tai kas klausiama salygoje

sveiki.sedziu egze,liko viena uzduotis,labai reikia greitos pagalbos.

uzduotis skamba taip:

Duotas sveikas skaicius.Kiek jis turi skaitmenu, kurie dalijasi is 5? Naudoti cikla while

laukiu atsakymu gerieji zmones :)

program Bevardė1;

var n, dal5 : integer;

begin
   write('n='); readln(n);
   dal5 := 0;
   while n > 9 do
   begin
       if (n mod 10 mod 5 = 0) and (n mod 10 <>0) then dal5 += 1;
       n := n div 10;
   end;
   if (n mod 5 =0) and (n<>0) then     dal5 += 1;

   writeln(dal5);
end.

program ieskoSkaitmenuDalijamuIs5;

var
duotasisSveikasisSkaicius: integer;           /// nusiskaityk is kazkur
tinkamuSkaitmenuSkaicius: integer;

begin
tinkamuSkaitmenuSkaicius = 0;
while duotasSveikasisSkaicius >= 10 do
begin
   if duotasisSveikasSkaicius mod 5 = 0 then
        tinkamuSkaitmenuSkaicius = tinkamuSkaitmenuSkaicius + 1;
   duotasisSveikasisSkaicius := duotasisSveikasisSkaicius div 10;
end;
end.

nenori veikt,kas dar kokiu pasiulymu? :)

nenori veikt,kas dar kokiu pasiulymu? :)

Kaip tai nenori veikti?:) Kokią klaidą meta? Man viskas čiki su ja.

dar keliu programu reikia jeigu turit

1. duotas intervallas sveiku skaiciu {m,n}. rasti nelyginiu intervalo skaiciu vidurki.

2. rasti penkiazenklius sveikus skaicius , kuriu vidurinio skaitmens kvadratas yra lygus likusiu skaitmenu sumai ir kiek ju yra?

grupiokai skolos alaus jum D:

Kaip tai nenori veikti?:) Kokią klaidą meta? Man viskas čiki su ja.

jega,viska radau,veikia puikiai einu uzduoties pristatyt :D

dekui Jums labai!

dar keliu programu reikia jeigu turit

1. duotas intervallas sveiku skaiciu {m,n}. rasti nelyginiu intervalo skaiciu vidurki.

2. rasti penkiazenklius sveikus skaicius , kuriu vidurinio skaitmens kvadratas yra lygus likusiu skaitmenu sumai ir kiek ju yra?

grupiokai skolos alaus jum D:

1.

program Noname0;
{duotas intervalas sveiku skaiciu (m,n) rasti nelyginiu intervalo skaiciu vidurki.}
var
m, n, x, i, sum : integer;
vidurkis : real;
begin
sum := 0;
x := 0;
 WriteLn('iveskite m: '); Readln(m);
 WriteLn('iveskite n: '); Readln(n);
   for i := m to n do
       if i mod 2 <> 0 then
           begin
               x := x + 1;
               sum := sum + i;
           end;
   vidurkis := sum / x;
   WriteLn('Vidurkis yra: ',vidurkis:2:2);
   readln;
end.

2.

program Noname1;
var sk,a,b,c,d,e,x: integer;
i: longint;
begin
   for i := 10000 to 99999 do
   begin
       a := i div 10000;
       b := i div 1000; b := b mod 10;
       c := i div 100; c := c mod 10;
       d := i div 10; d := d mod 10;;
       e := i mod 10;
       if c*c = a + b + d + e then
       begin
           x := x + 1;
           writeln('skaicius yra: ',i);
       end;
   end;
       writeln('isviso yra: ',x);
 Readln;
end.

nėra padaryta perfect, bet jos veikia :)