Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
program drugi;
uses crt;
var a,b :integer;
c:real;
begin
clrscr;
writeln('To jest program kalkulator, wykonujacy rozne dzialania na dwoch liczbach.');
write('Wpisz pierwsza liczbe:');
readln(a);
write('Wpisz druga liczbe:');
readln(b);
write('Dodawanie:');
c:=a+b;
writeln(c:10:2);
write('Odejmowanie a-b:');
c:=a-b;
writeln(c:10:2);
write('Odejmowanie b-a:');
c:=b-a;
writeln(c:10:2);
write('Mnozenie:');
c:=a*b;
writeln(c:10:2);
write('Dzielenie a przez b:');
c:=a/b;
writeln(c:10:2);
write('Dzielenie b przez a:');
c:=b/a;
writeln(c:10:2);
write('Dzielenie bez reszty a przez b:');
c:=a div b;
writeln(c:10:2);
write('Dzielenie bez reszty b przez a:');
c:=b div a;
writeln(c:10:2);
write('Dzielenie bez reszty a przez b:');
c:= a div b;
writeln(c:10:2);
write('Reszta z dzielenia a przez b:');
c:=a mod b;
writeln(c:10:2);
write('Reszta z dzielenia b przez a:');
c:=b mod a;
writeln(c:10:2);
readln;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment