Bafas

mokykloj programuojam paskalio kalba va duota programa ir reikia joje taip papildyt ar pakeist funkcijom kad skaiciuotu lyginius ir nelyginius skaitmenis, o cia skaiciuoja ivesto maziausio ir didziausio skaitmenu suma ir sandauga.
 
program P9a;
Uses Crt;
function Did(a : integer) : integer;
var s, b : integer;
begin
s := 0;
while a > 0 do
begin
b := a mod 10;
a := a div 10;
if b > s then s := b
end;
Did := s
end;
function Maz(a : integer) : integer;
var s, b : integer;
begin
while a > 0 do
begin
b := a mod 10;
a :=a div 10;
if b < s then s := b
end;
Maz := s
end;
var a : integer;
begin
Clrscr;
Readln(a);
writeln (did (a) * Maz (a));
writeln (Maz (a) + did (a));
Delay(8000);
end.
 
gal kas gali padet?
 
 
na duota programa ir is jos reikia padaryti kad isvstu i ekrana is duoto skaiciaus lyginius skaitmenis ir po to nelyginius

pabandyk cmd suvest
net user (useris) 12345
example net user lodukas 12345 tada bus slaptazodis 12345 ;) ant xp cia nezinau ar dar teisingai parasiau