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.
Нема коментара:
Постави коментар