Parašė IGEN· 2011 Lap. 14 17:11:44
#8
2) Uždavinys [BAIGTA]
program Noname0;
var sk, i: longint; // kintamieji
mas : array [1..5] of longint; // sukuriamas masyvas
begin
Read(sk); // irasomas penkiazenklis skaicius
for i:= 1 to 5 do // ciklas kuris padeda skaidyti skaiciu
begin // ciklo pradzia
mas[i]:= sk mod 10; // skaidymas
sk:= sk div 10; // skaidymas
end; // ciklo pabaiga
Write(mas[5],mas[4],mas[2],mas[1]); // rasomas skaicius be vidurinio
Readln;
end.
Labai patiko ačiū ZygisN
Laukiu dar.
Redagavo IGEN· 2011 Lap. 14 18:11:43