Parašė IGEN· 2011 Lap. 22 21:11:19
#10
Please help, užmuškit manę, bet per savaite mano smegeninė neišlaužė kaip reikia dabaigti šį uždavinį.
Uždavinys daleiskim įrašomas penkiaženklis skaičius ir iš tų 5 skaičių turi spauzdinti skaičių, kuris kartojasi 3 kartus.
Pavyzdžiui: Skaičius: 41344; Atsakymas: 4 , nes jis kartojasi tris kartus.
Skaičius: 84838; Atsakymas: 8, nes jis kartojasi tris kartus.
program Noname0;
var sk, i, i2: longint;
mas : array [1..5] of longint;
begin
Read(sk);
for i:= 1 to 5 do
begin
mas[i]:= sk mod 10;
sk:= sk div 10;
end;
Write(mas[5],mas[4],mas[3],mas[2],mas[1]);
for i:= 0 to 9 do
begin
for i2:= 1 to 5 do
//
// Čia niekaip nesugalvoju...
//
end;
end;
Readln;
end.
PASIDARIAU, KAM REIKES ATSAKYMO PM!
Redagavo IGEN· 2011 Lap. 26 17:11:58