Ответы на вопрос:
uses crt; vari,j,s,n,k: integer; beginclrscr; writeln('vvedite chislo'); readln(n); for i: =2 to n-1 dobegink: =0; for j: =2 to i-1 doif i mod j=0 then k: =1; if (k=0)and(n mod i=0)thenbeginwrite(i,' '); s: =s+1; end; end; writeln; writeln('chislo delitelii =',s); readln; end.
Var n1,n2,r,k,i: integer; begin randomize; k: =0; for i: =1 to 7 do begin n1: =random(90)+10; n2: =random(90)+10; write(n1,' + ',n2,' = '); readln(r); if r=n1+n2 then k: =k+1; end; writeln('k = ',k); end. пример: 98 + 59 = 157 18 + 99 = 117 23 + 47 = 70 16 + 21 = 35 38 + 62 = 100 16 + 81 = 97 54 + 28 = 82 k = 6
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
beka9888802.04.2022 16:05
-
arinakurbatovu28.07.2022 20:42
-
tetyanavasil29.10.2020 05:51
-
sonashkumatova21.11.2020 11:27
-
вованоджи16.01.2020 08:36
-
EkaterinaLis1303.11.2022 13:26
-
ЮлияТимофеева14.04.2022 04:52
-
martin3718.10.2020 13:17
-
dimon4ikk12213.05.2023 12:26
-
кекай07.11.2020 07:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.