алгоритм далек от совершенства, медленный, но считает правильно. Паскаль
Объяснение:
var
col: integer;
i, k: longint;
del: boolean;
function prost(a: longint): boolean;
var c: integer;
begin
prost := a >= 2;
for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;
end;
begin
i := 2;
col := 1;
repeat
del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);
for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;
if del then
begin
Write(i, ', ');
inc(col);
end;
inc(i);
until col > 1000;
end.
program v5;
begin
writeln('█▀█░░█░█░█▀█░█▀█░█░░░█░█▀▄▀█');
writeln('█░▄░░█▀█░█░█░█▀▄░█▀█░█░█░█░█');
writeln('▀▀▀░░▀░▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░▀');
writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
writeln('░█▀▀░█▀█░░█▀█░░█▀█░█▀▄▀█░░█░');
writeln('░█░░░█░█░░█░█░░█░█░█░█░█░░▀░');
writeln('░▀░░░▀▀▀░█▀▀▀█░▀▀▀░▀░░░▀░░▀░');
writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
writeln('░░░░░░░░░░░░▄██▄░░░░░░░░░░░░');
writeln('░░░░░░░░░░▄██████▄░░░░░░░░░░');
writeln('░░░░░░░░▄████░█████▄░░░░░░░░');
writeln('░░░░░░▄█████████░████░░░░░░░');
writeln('░░░░░░░░░▄██░█████▄░░░░░░░░░');
writeln('░░░░░░░▄████████████▄░░░░░░░');
writeln('░░░░░▄███░███████░████▄░░░░░');
writeln('░░░▄████████░███████████▄░░░');
writeln('░░░░░░▄█████████░████▄░░░░░░');
writeln('░░░░▄████░█████████░███▄░░░░');
writeln('░░▄██████████░███████████▄░░');
writeln('▄█████░█████████████░██████▄');
writeln('▀▀▀▀▀▀▀▀▀▀▀▀████▀▀▀▀▀▀▀▀▀▀▀▀');
writeln('░░░░░░░░░░░░████░░░░░░░░░░░░');
writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
writeln('░░█▀▀▀█░█▀▀▀▀█░█▀▀▀█░█▀▀▀▀█░');
writeln('░░█▄█░█░█░██░█░█▄█░█░█░██░█░');
writeln('░░█░▄██░█░██░█░█░▄██░█░██░█░');
writeln('░░█▄▄▄█░█▄▄▄▄█░█▄▄▄█░█▄▄▄▄█░');
end.
var N,k,f,M: longint;beginwriteln ('ВВЕДИТЕ КОЛ-ВО ЛЮДЕЙ В ИГРЕ: ');read(N);writeln('ВВЕДИТЕ КОЛ-ВО СЛОВ: ');read(M);K:=M div N ;F:=M-K*N;if f=0 then write ('НОМЕР ЧЕЛОВЕКА, НА КОТОРОГО ПРИДЕТСЯ ПОСЛЕДНЕЕ СЛОВО >> ',N) elsewrite('НОМЕР ЧЕЛОВЕКА, НА КОТОРОГО ПРИДЕТСЯ ПОСЛЕДНЕЕ СЛОВО >> ',F);end.