pascal
 

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

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.

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

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.

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.

moju? a?

nema potrebe, riješio sam zadatak.