Дан 3

14. Написати програм за испис природних бројева од 1 до n FOR петљом.

PROGRAM аааа;
VAR i, n : INTEGER;
BEGIN
  READLN(n);
  FOR i := 1 TO n DO
               begin
           WRITELN(i );
               End;
  READLN;
END.

15. Написати програм за испис парних природних бројева од 1 до n.

PROGRAM bbbb;
VAR i, n : INTEGER;
BEGIN
  READLN( n );
  FOR i := 1 TO n DO
               begin
    IF i MOD 2 = 0 THEN
               begin
      WRITELN(i );
               End;
               End;
  READLN;
END.

16. Израчунати и исписати суму првихn природних бројева. Користити FOR петљу.

 
PROGRAM suma;
VAR i, n, s : INTEGER;
BEGIN
  READLN( n );
  s := 0;
  FOR i := 1 TO n DO
               begin
    s := s + i;
end;
  WRITELN(s);
END.


17. Израчунати суму парних природних бројева у интервалу од k до n.
PROGRAM interval;
VAR i, n, k, s : INTEGER;
BEGIN
  READLN( k );
  READLN( n );
  s := 0;
  FOR i := k TO n DO
    BEGIN
      IF i MOD 2 = 0 THEN
           begin
        s := s + i;
           end;
    END;
  WRITELN(s);
  READLN;
END.

18. Написати програм за пребројавање природних бројева који су дељиви са 3 у интервалу од k до n.

PROGRAM cccc;
VAR i,k,n,br:integer;
BEGIN
readln(k,n);
br:=0;
FOR i := k TO n DO
begin
IF i MOD 3 = 0 THEN
begin
br:=br+1;
end;
END;
writeln(br);
readln;
END.

19. Израчунати суму и производ природних бројева од a до b.

PROGRAM rrrr;
VAR i,a,b,l,s:Integer;
  p:Real;
BEGIN
  Readln(a,b,l);
  p:=1;
  FOR i:=a TO b DO
    BEGIN
      p:=p*i;
      s:=s+i;
    END;
  Writeln(p);
  Writeln(s);
Readln;
END.

 Задаци за вежбање

20. Написати програм за пребројавање дељивих са 3 природне бројеве од 1 до n.

21. Написати програм за пребројавање природних бројева који нису дељиви са 3 у интервалу од k до n.

22. Израчунати суму и производ природних бројева од а до b.

Advertisements

Оставите одговор

Попуните детаље испод или притисните на иконицу да бисте се пријавили:

WordPress.com лого

Коментаришет користећи свој WordPress.com налог. Одјавите се / Промени )

Слика на Твитеру

Коментаришет користећи свој Twitter налог. Одјавите се / Промени )

Фејсбукова фотографија

Коментаришет користећи свој Facebook налог. Одјавите се / Промени )

Google+ photo

Коментаришет користећи свој Google+ налог. Одјавите се / Промени )

Повезивање са %s