Vladikf01Vlad220
07.07.2020 12:20

Программа для вывода на экран всех простых чисел, не превосходящих заданного n. (простым называется натуральное число больше единицы, имеющее только два делителя: единицу и само это число) я составила вот так: begin  var n: =readinteger('n=');   for var i: =1 to n do begin      var (flag,j,r): =(true,2,round(sqrt(;       while flag and (j< =r) do          if i mod j = 0 then flag: =false          else j+=1;       if flag then print(i)      endend.но программа пишет, что в этой строчке ошибка: var n: =readinteger('n='); а я, блин, знаю, что её там нет. подскажите.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kanaev07
30.09.2022 17:35
Var i:integer;M:array[1..10]of integer;A,F:real;B,C:integer;begin
writeln('Введите элементы массива: ');for i:=1 to 10 doreadln(M[i]); //основной массивA:=0; //сумма от.элементовif M[i] < 0 then A:=A+M[i];writeln('Сумма отрицательных элементов массива: ',A);B:=0; //кол-во чётных элементов массиваif M[i] mod 2 = 0 then B:=B+1;writeln('Количество чётных элементов массива: ',B);i:=1;if(M[i]>0)theni:=i+1; C:=i;writeln('Номер первого положительного элемента массива: ',C);F:=C+((A+B)/(10-C+A));writeln('Значение формулы: ',F);end.
0,0(0 оценок)
Ответ:
emin551
12.06.2022 20:32
1. Файл – это:
г) Программа или данные на диске, имеющие имя
2. Выбери правильное имя файла:
в) 9 класс А.doc
3. Расширение в имени файла указывает на:
б) тип файла
4. Укажи полное имя файла:
а) A:\Windows\System\pole.exe   
5. Укажи расширение файла:
е) exe
6. C:\Ivanov\Petrov\PROGS\prog1.pas. Какая папка является дочерней для папки Ivanov?
б) Petrov
7. Файловая система – это:
а) совокупность всех файлов на диске    
8. Текущий диск – это диск:
а) диск, с которым пользователь работает в данный момент времени
9. С какой файловой системой работает операционная система на компьютерах в вашем классе:
?
а) простой,
б) многоуровневой,
в) сложной

10. Какие из расширений в списке используются для файлов, содержащих графические изображения:
б) jpeg;
д) bmp.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота