Nick:34
Dodano:2004-10-25 14:59:07
Email:55
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 a0) 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:df
Dodano:2004-10-25 14:49:00
Email:dddd
Wpis:Program algorytm_euklidesa;
uses crt;
var
a,b:integer;
begin
clrscr;
writeln('Podaj liczbe a=');
read(a);
writeln('Podaj liczbe b=');
read(b);
while (a>0) and (b>0) do
begin
if a>b then a:=a mod b
else b:= b mod a;
end;
write('To jest najwiekszy wspolny dzielnik tych dwoch liczb ',b,'.');
read;
readkey
end.
|
|
|
Nick:ihn
Dodano:2004-10-25 13:24:13
Email:hhiihh
Wpis:Program elo;
uses crt;
var
a,b real;
begin
clrscr;
writeln('Podaj liczbe a='):
read(a);
writeln('Podaj liczbe b=');
read(b);
if a>b then a:=a mod b
else b:= b mod a;
|
|
|
Nick:f
Dodano:2004-10-04 14:51:12
Url:d
Email:ff
Wpis:Program UltraPenetraror;
uses crt;
var
max:integer;
const n=15;
type
zbior=array[1..n] of integer;
var
a:zbior;
i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=random(50);
max:=a[i];
for i:=2 to n do
if max
|
|
|
Nick:Szalona
Dodano:2004-05-22 19:48:51
Wpis:Cześć! Mam nadzieję, że nie trafią tu zdjęcia z wycieczki!!!  Papa!
|
|
|