hepinize çok teşekkürler ilk hatayı burda değişkenler yanlış yazıldığı için almıştım:
uses crt;
var
a,b,d
egistirme:integer;
begin
write(‘1. sayıyı gir:’);readln(a);
write(‘2. sayıyı gir:’);readln(b);
degistir:=b;
b:=a;
a:=
degistir;
writeln(‘1.sayı:’,a);
writeln(‘2.sayı:’,b);
readkey;
end.
Ama şimdi "
Error 200: Division by Zero" hatası alıyorum yalnız bu kodlardan kaynaklanmıyor sanırım.Biraz aradım ama olumlu bir sonuç bulamadım.Hepinize tekrar teşekkürler
