Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  dzielenie
Language: PASCAL
Code:
program dzielenie;
var
  a,b,i : integer;
  c : real;
begin
  writeln('Podaj 2 liczby po ent.');
  Readln(a,b);
  if b<>0 then
   begin
    c:=a/b;
    writeln(c:4:4);
   end
  else
   for i:=1 to 3 do
    begin
     writeln('podaj druga liczbę');
     readln(b);
     if b<>0 then
      begin
       c:=a/b;
       writeln(c:4:4);     
       break;
      end
    else
     writeln('podałeś złą liczbę');
    end;
readln;
end.          
          
          
          
          
          
          
          
          
          
          
          
Comments: