Paskalis(reikia pagalbos draugei)

Sveiki,reikia pagalbos draugei su paskaliu gal galit padeti? kadangi ji neturi cia vartotojo tai as parasysiu.Dekui uz pagalba

I. Parasykite sakiniu seka, sukeiciancia vietomis pirmus du trizenklio skaiciaus skaitmenis.

II.Parasykite programa, randancia trizenklio sveiko skaiciaus skaitmenu, kurie dalijasi ir 3, suma.

III. Parasykite programa, randancia didziausio ir maziausio keturzenklio skaiciaus skaitmenu suma.

Sveiki,reikia pagalbos draugei su paskaliu gal galit padeti? kadangi ji neturi cia vartotojo tai as parasysiu.Dekui uz pagalba

I. Parasykite sakiniu seka, sukeiciancia vietomis pirmus du trizenklio skaiciaus skaitmenis.

II.Parasykite programa, randancia trizenklio sveiko skaiciaus skaitmenu, kurie dalijasi ir 3, suma.

III. Parasykite programa, randancia didziausio ir maziausio keturzenklio skaiciaus skaitmenu suma.

Duok drauges, foto paziures chebra ar apsimoka padet :D

Duok drauges, foto paziures chebra ar apsimoka padet :D

Nereikia cia to humoro rytojui jai reikia :D

1 uzdavinio sakiniu seka galiu parasyt:

1)paimi trizenkli skaiciu

2)is to trizenklio skaiciaus paimi pirma skaitmeni ir antra skaitmeni

3)pirma skaitmeni rasai i antro skaitmens vieta, o antra i pirmo vieta.

4)va ir gauni atsakyma

o 2,3 uzdavinio programas tegu raso forumo juodadarbiai :D

Na gal kas pades?

matau niekas nenori užsiimt su tokiom 'sudėtingom' programom :D

//Parasykite sakiniu seka, sukeiciancia vietomis pirmus du trizenklio skaiciaus skaitmenis
program keitimas;
var sk, a, b, c : integer;
begin
 WriteLn('iveskite 3-enkli skaiciu');
 readln(sk);
 a := sk div 100;
 b := sk mod 100 div 10;
 C := sk mod 10;
 sk := b * 100 + a * 10 + c;
 writeln('sukeista: ', sk);
 Readln;
end.

//Parasykite programa, randancia trizenklio sveiko skaiciaus skaitmenu, kurie dalijasi ir 3, suma.
program suma;
var a, b, c, sk, sum : integer;
begin
 WriteLn('prasauuuu ivesk 3-enkli skaiciu ');
 readln(sk);
 a := sk div 100;
 b := sk mod 100 div 10;
 c := sk mod 10;
 sum := 0;
 if (a mod 3) = 0
   then sum := sum + a;
 if (b mod 3) = 0
   then sum += b;
 if (c mod 3) = 0
   then sum += c;
 writeln('suma yra: ', sum);
 Readln;
end.

//Parasykite programa, randancia didziausio ir maziausio keturzenklio skaiciaus skaitmenu suma.
program max_min;
var a, b, c, d, sk, max, min : integer;
begin
 WriteLn('rasyk 4-enkli skaiciu');
 readln(sk);
 a := sk div 1000;
 b := sk div 100 mod 10;
 c := sk div 10 mod 10;
 d := sk mod 10;
 min := 10;
 max := 0;
 if a > max
   then max := a;
 if a < min
   then min := a;
 if b > max
   then max := b;
 if b < min
   then min := b;
 if c > max
   then max := c;
 if c < min
   then min := c;
 if d > max
   then max := d;
 if d < min
   then min := d;
 writeln('didziausio ir maziausio suma: ', max + min);
 Readln;
end.