Решите задачу по информатике на Pascal! Даю 50 баллов.
Нужно полное и понятное решение.
Приложения:
Ответы
Ответ дал:
0
program PredelnieChisla;
var
A, B, i, j: integer;
isPrime: boolean;
begin
write('Введите нижний предел (A): ');
readln(A);
write('Введите верхний предел (B): ');
readln(B);
for i := A to B do
begin
isPrime := true;
for j := 2 to i div 2 do
begin
if (i mod j = 0) then
begin
isPrime := false;
break;
end;
end;
if isPrime then
write(i, ' ');
end;
writeln;
end.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад