Дан 1

1. Написати програм за израчунавање обима правоугаоника на основу унетих страница.

PROGRAM obim;
VAR a, b, 0: REAL;
BEGIN
  READLN(a,b);
  o :=2*a + 2* b;
  WRITELN(о);
  READLN;
END.

2. За унети полупречник израчунати обим и површину круга.

 
PROGRAM krug;
VAR r, o, p: Real;
BEGIN
  Readln(r);
  o  := 2 * r * 3.14;
  p  := 3.14*r*r;
  Writeln(O);
  Writeln(P);
Readln;
END.

 

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

3. Написати програм за испис збира два унета броја

4. Написати  програм за израчунавање обима троугла на основу унетих страница троугла.

5. Ако возило пређе са X литара горива S км. Колико потроши литара горива за Y пређених километара (X, S, Y се уносе са тастатуре).

6. Написати програм за претварање D долара у евре на основу унете вредности Х, при чему је Е=X*D.