pascal

[morfoos]

ajmo jedan test sa dva zadatka:

1.Unijeti trocifren cijeli broj.Ispisati sumu njegovih cifara.

2.Unijeti prirodan broj broj n.Izracunati i ispisati sumu Brojeva od jedan do n.

Tko uradi dobije cokoladu!

hahaha

[danij3l]

zadacu morash radit sam.

[morfoos]

Autor DaNiJ3L

zadacu morash radit sam.

Tko kaže da je zadaća?

Davno sam ja to prošao. Misliš da nama na trećoj godini daju zadaće? Dugo nisam radio u pascalu.

[morfoos]

rendula, tražim tvoju pomoć, jer to je i bit ovakvog foruma uostalom. ovo mi je zbilja bitno.

[morfoos]

evo skontao sam 2.zadatak ali me pati prvi:

evo drugi.


var n:Integer;
sum:Integer;

begin

writeln (n);
readln (n);
sum :=n * (n+1) div 2;
writeln (sum);
readln;
readln;
end.

[rodney]

var n:Integer;
    sum:Integer;

begin

writeln (n);
readln  (n);
sum := (n div 100) + (n div 10) + (n div 1)
writeln (sum);
readln;
readln;
end.

[danij3l]

nevalja

[morfoos]

Autor DaNiJ3L

nevalja

Što onda ne napišeš da valja? Nego se tu praviš pametan. Riješio sam problem nakon kopanja po literaturi i učenja komandi u pascalu.
Hvala rodneyu i ljudima koji žele pomoć' a ne laprdat' bezveze.

program sumacifara(input,output);
var i,j : integer;
begin
j := 0;
write ('Unesite trocifren broj:');
readln(i);
repeat
j := j + i mod 10;
i := i div 10;
until (i < 10);
j := j + i;
writeln('Suma cifara je: ', j);
readln;
end.

[rendula]

Autor morfoos

rendula, tražim tvoju pomoć, jer to je i bit ovakvog foruma uostalom. ovo mi je zbilja bitno.

moju? a?

[morfoos]

Autor rendula

moju? a?

nema potrebe, riješio sam zadatak.