Răspuns :
Răspuns:
var
{ TODO: check and accomplish variable declarations }
uitkomst: Single;
keuze: string;
getalB: Longint;
getalA: Longint;
begin
uitkomst := 0;
writeln('Geef Een getal');
readln(getalA);
while (keuze<>'=') do
begin
writeln('+');
writeln('-');
writeln('*');
writeln('/');
writeln('=');
readln(keuze);
writeln('Geef een getal');
readln(getalB);
case (keuze) of
'+':
begin
uitkomst := getalA+getalB;
end;
'-':
begin
uitkomst := getalA-getalB;
end;
'*':
begin
Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.