Dali moze nekoj da mi pomogne so ovaa zadaca: 1+(1+2)+(1+2+3)...(1+2+...n) , treba da bide napisana kako potprograma vo pascal. blagodaram :)
--- надополнето: Nov 29, 2011 7:53 PM ---
Dali moze nekoj da mi pomogne so ovaa zadaca: 1+(1+2)+(1+2+3)...(1+2+...n) , treba da bide napisana kako...
vsusnost, od ovde neznam da prodolzam, kako da se koregiram
program sprotiven;
VAR n,stotki, desetki, edinici:integer;
BEGIN
Writeln('trocifren broj');
readln(n);
stotka:=n div 100;
desetka:=(n div 100)mod 10;
edinica:=n mod 10;
Zdravo, mi treba mala pomos... Imam da napisam zadaca vo pascal koja glasi: od zadaden trocifren broj n (zadaden od tastatura), da se pecati samo srednata cifra. Odnapred blagodaram :)
Оваа страница користи колачиња за персонализирање на содржината. Со продолжување на користењето, се согласувате со нашата политика за користење колачиња.