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.
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.
kamil81 napisał(a):Co to za program ?
BlueMan napisał(a):PROGRAM BipBipus;
Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 93 gości