Question

Napisz program w Pascalu . 'Napisz program, który będzie sprawdzał warunek parzystości , Sprawdź czy liczba jest podzielna przez dwie liczby'

ma wyjśc , czy liczba ma dwa dowolne dzielniki...

w razie pytan na PW

Answer 1

Program lpie;
uses CRT;
var liczba,i,buff : integer;
pierwsza : boolean;
begin
clrscr;
Writeln('Podaj liczbe:');
readln(liczba);
buff := 0;
for i := 2 to liczba-1 do
if liczba mod i = 0 then buff := buff+1;
if buff = 2 then Writeln('Liczba jest podzielna przez 2 liczby.') else
Writeln('Liczba nie jest podzielna tylko przez 2 liczby.');
Readln;
end.



W razie reklamacji pisz PM.