Pagalba del Pascal

jei kam nesunku gal galit parasyt kaip tokias uzduotis issprest:

1. Parasykite programa kuri duota n-zenkli skaiciu isskaidytu i skaitmenis ir suskaiciuotu kiek yra skaitmenu lygiu 3

2. Duota skaiciu seka ivedama klaviatura. Sekos pabaigos pozymis nulis. Parasykite programa kuri suskaiciuotu kiek yra sekos nariu lygiu 5

jei kam nesunku gal galit parasyt kaip tokias uzduotis issprest:

 

 

1. Parasykite programa kuri duota n-zenkli skaiciu isskaidytu i skaitmenis ir suskaiciuotu kiek yra skaitmenu lygiu 3

2. Duota skaiciu seka ivedama klaviatura. Sekos pabaigos pozymis nulis. Parasykite programa kuri suskaiciuotu kiek yra sekos nariu lygiu 5

Teikiu programavimo paslaugas .

Skype: kiprelissensejus .

 

Aš mėgstu kritiką tik, kol ji netampa nekvalifikuotu pagyrimu.

Noelis Kovardas

Kiek kvailai skamba kai pats teiki programavimo paslaugas, o tokiu uzduociu nesugebi susitvarkyt...

As neprogramuoju su tuo paskaliu jau 100 metu , o cia ne man reikia , tiesiog prasau pagalbos , jei kam nesunku , cia kas moka tai kelio minutes :)

1.

program skaidom;
var sk,n:integer;
begin
WriteLn('Iveskite skaiciu'); ReadLn(sk);
while sk > 0 do
	begin
		if sk mod 10 = 3 then inc(n);
		sk := sk div 10;
	end;
WriteLn('Is viso trejetu yra ',n);
end.

2.

program seka;
var sk,n:integer;
begin
WriteLn('Iveskite skaiciu'); ReadLn(sk);
while sk <> 0 do
	begin
            if sk = 5 then inc(n);
       	    ReadLn(sk);
	end;
WriteLn('Is viso penketu yra ',n);
end.

dekoju tikrai labai , jeigu kas nors dar antra parasytu butu isvis saunu :)

A jau ir antra paraset , dekoju dar karta