| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
 Trimis: 16.03.2008 11:27 Titlul subiectului: Problema 14 |
|
|
| Citat: |
Scrieþi programul C/C++/Pascal care citeºte de la tastaturã un numãr natural n ( n≤100) ºi un ºir cu n numere întregi din intervalul [100,999] ; programul construieºte în mod eficace din punctul de vedere al spaþiului de memorie folosit, un ºir de numere rezultat prin înlocuirea fiecãrui numãr din ºirul citit cu numãrul obþinut prin interschimbarea cifrei unitãþilor cu cifra sutelor. Numerele din noul ºir se vor afiºa pe ecran separate printr-un solitar spaþiu.
De exemplu, pentru n=3 ºi ºirul 123 904 500, se afiºeazã : 321 409 5.
|
| Cod: |
program prob14;
var n, i:integer;
v:array[1..100] of integer;
begin
write('n='); readln(n);
for i := 1 to n do
readln(v[i]);
for i := 1 to n do
write(v[i] mod 10 * 100 +
v[i] div 10 mod 10 * 10 +
v[i] div 100, ' ')
end. |
 |
|
| Sus » |
|
 |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:05 Titlul subiectului: |
|
|
| Cod: |
{14. scrieti programul pascal care citeste de la tastatura un numar normal n
(n<=100 si un sir cu n numere intregi din intervalul [100, 999]; programul
costruieste in mod eficace din punct de vedere al spatiului de memorie fol.,
un sir de numere rezultat prin inlocuirea fiecarui numar din sirul citit
cu numarul obtinut prin interschimbarea cifrei unitatilor cu cifra sutelor.
numerele din noul sir se vor afisa pe ecran separate printr-un spatiu.}
program ex14;
var x:array[1..100] of integer;
n,i,j,a:integer;
begin
write('n: '); readln(n);
j:=0;
for i:=1 to n do begin
readln(a);
j:=j+1;
x[j]:=100*(a mod 10)+10*((a div 10) mod 10)+a div 100;
end;
for i:=1 to n do write(x[i],' ');
end.
|
|
|
| Sus » |
|
|
|
|
