вторник, 28 апреля 2015 г.

Программирование

Program +;    
  var a,b,c:byte;
    begin
write('vvedite 2 chisla');
   readln(a);
   readln(b);
c:=a+b;
     writeln('Summa chisel=',c);
 readln;
end.
 
Program -;    
  var a,b,c:byte;
    begin
write('vvedite 2 chisla');
   readln(a);
   readln(b);
c:=a-b;
     writeln('raznost chisel=',c);
 readln;
end.

Program *;    
  var a,b,c:byte;
    begin
write('vvedite 2 chisla');
   readln(a);
   readln(b);
c:=a*b;
     writeln('proizvedenie chisel=',c);
 readln;
end.

Program /;     
  var a,b,c:byte;
    begin
write('vvedite 2 chisla');
   readln(a);
   readln(b);
c:=a/b;
     writeln('chastnoe chisel=',c);
 readln;
end.