Исправить ошибку исправить ошибку в программе вот : разработать программу поиска и печати всех чисел-близнецов, принадлежащих заданному диапазону [n,m ]. вот программа: program yyy; function prost(var x: integer): boolean; var k,i: integer; t: boolean; begin t: =true; k: =0; for i: =1 to x do begin if x mod i=0 then k: =k+1; end; if k=2 then t: =true else t: =false; prost: =t end; var n,m,i: integer; begin writeln('1'); readln(n); writeln('2'); readln(m); for i: =n to m-1 do begin if prost(i) and prost(i+2) then writeln(i , (i+2)); end; end.
278
461
Ответы на вопрос:
Основную ошибку вам уже указали. можно программу немного сократить: program yyy; function prost(x: integer): boolean; var k,i: integer; begin k: =0; for i: =2 to trunc(sqrt(x)) do if x mod i = 0 then k: =k+1; prost: =k=0 end; var n,m,i: integer; begin write('n='); readln(n); write('m='); readln(m); for i: =n to m-2 do if prost(i) and prost(i+2) then writeln(i,' ', (i+2)); end. пример: n=1 m=150 1 3 3 5 5 7 11 13 17 19 29 31 41 43 59 61 71 73 101 103 107 109 137 139
Вообще подобные обычно делаются в excel. и делать с массивом или без? . program abc; var a : array [1..7] of integer; s, k: integer; begin s: =0 for k: = 1 to 7 do begin readln (a[k]); s: =s+a[k]; end; writeln ('среднее атмосферное давление ', (s/7)); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
amiralimurodov22.08.2021 16:12
-
olenanuchajj828.07.2020 03:39
-
124541Artem1111123.12.2021 01:17
-
IrishkaKoteika268901.08.2021 05:02
-
Mikutyan0102.11.2020 07:54
-
8999870897318.11.2020 10:56
-
Demiali4101.03.2022 17:52
-
Filipin203005.08.2020 05:41
-
lisi291217.05.2020 09:49
-
mokeevayulichk4824.07.2021 07:07
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.