Nick:564
Dodano:2004-10-25 15:04:00
Wpis:begin
writeln(' Zmienna a nie boże być równa 0 !');
write(' Podaj wartość zmiennej a = ');
readln(a);
end;
until a0;
write(' Podaj wartość zmiennej b = ');
readln(b);
|
|
|
|
|
|
|
Nick:3546
Dodano:2004-10-25 15:03:31
Wpis:program Mini;
var
p,k,l,a,b,c:real;
begin
write(' Podaj wartość zmiennej a = ');
readln(a);
repeat
if a=0 then
|
|
|
Nick:3535
Dodano:2004-10-25 15:00:48
Wpis:WriteLn(' Liczba "b" nie może być mniejsza od 1.');
Write(' Podaj b= ');
Readln(b);
WriteLn;
end;
while (a>0) and (b>0) do
if a > b then a:=a mod b else if a
if a > 0 then s:=a else
if b > 0 then s:=b;
Writeln (' NWD(a,b)= ',s);
readkey;
end.
|
|
|
Nick:4352
Dodano:2004-10-25 15:00:30
Email:tt
Wpis:begin
WriteLn(' Liczba "a" nie może być mniejsza od 1.');
Write(' Podaj a= ');
Readln(a);
WriteLn;
end;
Write(' Podaj b= ');
Readln(b);
WriteLn;
while b
|
|
|
Nick:56g
Dodano:2004-10-25 15:00:13
Wpis:program NWD;
uses crt;
Var
a,b,s:integer;
begin
clrscr;
WriteLn(' Program oblicza NWD dla liczb a i b');
WriteLn;
Write(' Podaj a= ');
Readln(a);
WriteLn;
while a
|
|
|