BIP

[traphezz]

-3

[Suceed]

=JEŻELI(A2>=7;"BIP";"")

[strzala]

1

[BlueMan]

Kod: Zaznacz cały

PROGRAM BipBipus;
uses crt;

var
liczba:integer;
ciach:real;

repeat
begin
writeln('Podaj liczbe');
readln(liczba);
ciach:=liczba/7;
if (ciach=0) then
writeln('BIP');
else writeln (liczba);
end;
until (liczba < ∞);
END.

Pisałem na żywca, więc może się nie skompilować

[traphezz]

Yyy cos poknociles :x

Ja bym to tak zrobil

Kod: Zaznacz cały

PROGRAM BipBipus;
uses crt;

var
liczba:integer;

repeat
begin
writeln('Podaj liczbe');
readln(liczba);
if (liczba mod 7=0) then
writeln('BIP');
else writeln (liczba);
end;
until (liczba < ∞);
END.

Bo jak liczba wynosi 7 i podzielisz przez 7 to wyjdzie 1 a nie 0 i nigdy Ci nie wyjdzie

[kamil]

Co to za program ?

[traphezz]

Co to za program ?

PROGRAM BipBipus;

Podajesz mu liczbe i jak bedzie wielokrotnoscia 7 to Ci wyswietli BIP jesli nie to wyswietli Ci ta liczbe co podales

[strzala]

to jeszcze raz


1

[BlueMan]

traphezz, tak, tak, bo reszte z dzielenia trzeba sprwdzać przecięż

[traphezz]

11001101001011100

11010110001110010

01101000111100011

10101001110100110

10101110011011100

10110111010111001

01110101010110010

[kamil]

Fajny programik, ja też bym chciał taki zrobić sobie. :dontgetit:
W jakim programie robi się takie programiki ?

[traphezz]

W jakim programie robi się takie programiki ?

[BlueMan]

to jest jezyk programowania.
Pisany z pamieci, nie kompilowany w TurboPascalu

[kamil]

traphezz co Cię tak śmieszy, gdzies trzeba to chyba zrobić.

[Paulinka]

Ja też już umiem takie programiki programować w programie programistycznym
na infie było
szkoda ze nie moge nosić kompa na matme, bo mialabym pod ręką program wyliczający pierwiastki trójmianu kwadratowego, a nienawidze tego robić z całego serca

[strzala]

szkoda ze nikt oprocz mnie nie gra, gadajcie se i dawajcie liczbe poprostu


1

[Q3lo]

3.1415926535 8979323846 2643383279 5028841971 6939937510
5820974944 5923078164 0628620899 8628034825 3421170679
8214808651 3282306647 0938446095 5058223172 5359408128
4811174502 8410270193 8521105559 6446229489 5493038196
4428810975 6659334461 2847564823 3786783165 2712019091
4564856692 3460348610 4543266482 1339360726 0249141273
7245870066 0631558817 4881520920 9628292540 9171536436
7892590360 0113305305 4882046652 1384146951 9415116094
3305727036 5759591953 0921861173 8193261179 3105118548
0744623799 6274956735 1885752724 8912279381 8301194912[...]

Edit By Me

[Suceed]

Nie umiecie się bawić
CLOSE

[Q3lo]

Kto mi edytował posta! przyznac sie!

[traphezz]

Masz napisane pod podpisem kto cokolwiek zmienial ostatni i ile razy bylo zmieniane

Nie umiecie się bawić

bo nudna zabawa