www.ispwsznysa.fora.pl

Siwy

program prog2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c:integer;
i:byte;
o:char;
begin
repeat
writeln ('Podaj dwie liczby');
readln (a);
readln (b);
writeln;
while b<>0 do
begin
c:= a mod b;
a:=b;
b:=c;
end;
writeln ('Najwiekszy wspolny dzielnik dla podanych liczb wynosi ',abs(a));
writeln;
writeln;
writeln ('Zakonczyc program [Z] czy powtorzyc [P]?');
readln (o);
while (upcase (o)<>'Z') and (upcase (o)<>'P') do
begin
writeln ('Wcisnij "Z" by zakonczyc lub "P" by powtorzyc');
readln (o);
end;
until upcase (o)='Z';
end.

roy

podalem 0 jako a i 6 jako b
nie wiem ale wznik mi sie nie podoba Razz

Siwy

trzeba go dopieścic Very Happy

stramik

Ja tam sie obijam na razie. Powodem tego jest brak czasu. Mozna zauwazyc, ze nasz forum jest monotematyczne. Wszyscy tylko o Programowaniu Very Happy

Siwy

hehehe, no faktycznie dziwne....