[47]

Napisany przez MacGyver

...i napisanie zajmuje doslownie 5 minut...

..::Update::..
Wynik 2-minutowej pracy (nie mam Pascala wiec napisalem to w Delphi...ale w Pascalu chyba bedzie wygladać podobnie)
Programik robi podstawowe obliczenia (trzeba jeszcze dodac obsluge dzielenie przez zero)

Pozwoliłem sobie troszki przerobić.

program kalkulatorek;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,w: integer;
    d: char;
begin
    write ('Podaj pierwsza liczbe: ');
    readln (a);
    write ('Podaj druga liczbe: ');
    readln (b) ;
    write ('Podaj znak dzialania (+,-,*,/): ');
    readln (d);
    case d of
     '+'  : w:=a+b;
     '-'   : w:=a-b;
     '*'   : w:=a*b;
     '/'    :
      Begin
         if b=0 then 
            Writeln('Dzielenie przez 0' ) 
               else
                  w:=a/b;
             end;
          end;
 writeln ('Wynik dzialania wynosi: ', w);
    readln;
end.