Впаскале: 1.составить функцию и процедуру, которая определяет сумму всех чисел от 1 до n. 2.составить программу, которая определяет нод и нок двух чисел.
268
499
Ответы на вопрос:
1) program gt; var n,s: integer; procedure summa(n: integer; var s: integer); begin s: =((n+1)*n)div 2; writeln(s); end; begin read(n); summa(n,s); end. 1.2) program gt2; var n,s: integer; function summa(n: integer): integer; var s: integer; begin s: =((n+1)*n)div 2; summa: =s; end; begin read(n); s: =summa(n); writeln(s); end. 2)program gt; label 3,9; var m,n,q,r,a,b: longint; begin read(m,n); a: =m; b: =n; 3: q: =m div n; r: =m mod n; if (r=0)then goto 9; m: =n; n: =r; goto 3; 9: m: =(a*b)div n; writeln('нод=',n); writeln('nok=',m); end.
//pascalabc.net //версия 3.3, сборка 1627 begin var a: =arrrandom(10,-99,99).println; writeln('кол-во положительных: ',a.where(x-> x> 0).count); write('кол-во четных : ',a.where(x-> x.iseven).count); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Фаай12.10.2021 21:18
-
paliy200612.12.2021 06:05
-
0709070201.06.2022 05:42
-
Metalmekid15.09.2021 15:29
-
Alina2251131.05.2020 13:37
-
rezkova21.03.2022 20:28
-
mjh6066119.10.2021 09:00
-
лунтик7228.05.2020 17:39
-
Nastja219627.05.2020 19:34
-
dianaandmasha29.01.2022 07:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.