Informatică, întrebare adresată de sghgfh, 8 ani în urmă

Puteti sa scrieti programul la Turbo Pascal 7 care sa arate urmatorul triunghi! Va rog frumos!


5
54
543
5432
54321


boiustef: da, se poate...

Răspunsuri la întrebare

Răspuns de grigore2018
0

Numai ca acest program il afiseaza invers:

var

a,b,c:integer;

begin

b:=54321;

c:=10000;

writeln(b);

for a:=1 to 4 do begin

writeln(b mod c);

c:=c div 10;

end;

end.

Daca te procepi in C++ codul arata astfel:

#include <stdio.h>

int main()

{

int i, j;

for(i=5;i>=1;i–)

{

for(j=5;j>=i;j–)

{

printf(“%d”,j);

}

printf(“\n”);

}

return 0;

}


grigore2018: Daca luam 3 atunici trebuie sa rezolve 1+4+27=32 si (32 mod 10)=2
grigore2018: var
a,b,i,n,c:integer;
begin
b:=0;
read(n);
for i:=1 to n do
b:=b+sqr(i);
c:=(b mod 10);
write(c);
end.
boiustef: mai esti aici?
grigore2018: Nu ca afiseaza 4 deoarece calculeaza produsul
boiustef: am o variantă...
boiustef: #include < iostream >
using namespace std;
short n, i, ult, ut, j;
int main()
{
cin >> n;
for (i=1; i <= n; ++i)
{
ut=1;
for (j=1; j <= i; ++j)
{
ut=(ut*(i%10))%10;
}
ult=(ult+ut)%10;
}
cout << ult;
}
boiustef: mai este una care nu foloseşte două cicluri ci numai unul...
boiustef: ut e folosită ca ultima cifră a termenului, adică a puterii
ult e pentru ultima cifră a sumei
boiustef: imi retrag ideea că mai este o variantă cu un singur ciclu... :))))
grigore2018: Mersi mult! : ) problema aceasta chiar mi-a facut batai de cap,si profesoara imi cerea s-o rezolv,dar nu aveam nici o idei,acum am inteles.Mersi ! :))
Răspuns de boiustef
0

programul de mai jos afiseaya respectivul triunghi pt orice numar dat, nu numai 5

program triunghi;

var i, j, n: integer;

begin

 write('n='); read(n);

 for i:=n downto 1 do

  begin

    for j:=n downto i do

       write(j);

    writeln;

  end;

end.

Alte întrebări interesante