среда, 6. март 2013.

1# Matematicke operacije nad integerom


program sabiranje_tri_promenjive;
uses crt;
var
   a,b:integer;
   zbir,razlika:integer;
   ostatak:real;
   kvadrat:integer;
   koren:real;

begin
    writeln('program mat operacije na dva cela broja');
    writeln('molim vas unesite dva cela broja');
    write('a=');
     readln(a);
    write('b=');
     readln(b);
     // racunanje
    zbir:=a+b;
    razlika:=a-b;
    ostatak:=a/b;
    kvadrat:=sqr(a);
    koren:=sqrt(a);
    writeln('zbir=',zbir);
    writeln('razlika=',razlika);
    writeln('ostatak=',ostatak);
    writeln('a na kvadrat=',kvadrat);
    writeln('koren iz a=',koren);
    readln();
end.

Нема коментара:

Постави коментар