maisa1991
?>

Напишите вс функцию, которая определяет является ли полученное число n простым (делителями числа n являются только n и 1) и передаёт эти данные в основную функцию. Воспользуйтесь вс функцией в основной программе, которая просит ввести число n, определяет и печатает все простые числа меньше либо равные n. Основная программа должна работать до тех пор, пока пользователь на вопрос «Продолжить? (да/нет): » ответит «нет». Питон

Информатика

Ответы

Александра440
Ну почему,когда просят написать программу никто никогда не указывает язык программирования.я напишу на языке паскаль с входным и выходным файлом,но если это не тот язык,твоя проблема.(сообщения в фигурных скобках,это комментарии,просто для пояснение,можешь удалить их)

program p1;
const n=10;
var a : array[1..n] of integer;
i,b,c:integer;
begin 
randomize; 
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);

for i:=1 to n do {Заполнение исходного массива}   
a[i]:=random(21)-10;
  
for i:=1 to n do {Вывод исходного массива(можно удалить эти строчки)}
write(a[i]:4);

c:=0; {Инверсия массива} 
for i:=1 to 2 do  begin   
b:=a[i];   
a[i]:=a[5-c];   
a[5-c]:=b;   
c:=c+1; 
end; 
c:=0; 
for i:=6 to 8 do 
begin   
b:=a[i];   
a[i]:=a[10-c];   
a[10-c]:=b;   
c:=c+1; 
end; 
writeln;
  
for i:=1 to n do {Вывод инверсированого массива} 
write(a[i]:4);

close(input);
close(output);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите вс функцию, которая определяет является ли полученное число n простым (делителями числа n являются только n и 1) и передаёт эти данные в основную функцию. Воспользуйтесь вс функцией в основной программе, которая просит ввести число n, определяет и печатает все простые числа меньше либо равные n. Основная программа должна работать до тех пор, пока пользователь на вопрос «Продолжить? (да/нет): » ответит «нет». Питон
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

borvalmok432
missmorozova2
opal19575
museumuzl
goryavinan
Zakharov Lilit
GridnevaVNIGNI"
rusdtver
kseybar
extremhunter
Домрачев
murza2007
fedotochkin8
Narine natalya
uksusoval617