Составить программу, печатающую все простые числа, не превосходящие данного числа. паскаль абс
Answers & Comments
уклубник897
Program Prostoe; Uses Crt; Var i, {возможный делитель} Number : integer; {исследуемое число} Begin ClrScr; writeln (‘Какое число должно быть проверено? ‘); read (Number); i := 1; repeat i := i+1; until Number mod i = 0; if Number=i then writeln (Number,’ является простым‘) else writeln (Number,’ делится на ‘,i); readln; End.
2 votes Thanks 1
1mixa1995
кажись это программа указывающая ток какое число и все.не печатает же простые числа
Answers & Comments
Uses
Crt;
Var
i, {возможный делитель}
Number : integer; {исследуемое число}
Begin
ClrScr;
writeln (‘Какое число должно быть проверено? ‘);
read (Number);
i := 1;
repeat
i := i+1;
until Number mod i = 0;
if Number=i
then
writeln (Number,’ является простым‘)
else
writeln (Number,’ делится на ‘,i);
readln;
End.