Pascalabc дан массив. выяснить, сколько чисел входит в последовательность по одному разу
117
449
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =arrrandom(readinteger('n='),1,20); a.println; writeln('уникальных чисел - ',a.distinct.count) end. тестовое решение n= 20 18 5 13 19 8 3 4 15 2 18 6 5 18 1 3 17 18 16 6 5 уникальных чисел - 13
если n-любое число,то 500n
program plotnost;
var a,b,c: integer;
begin
writeln('введите площадь пляжа');
readln(b);
a: =500;
c: =a*b;
writeln('плотность равна',c);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
milanaberezova17.05.2020 14:21
-
ba4Ka06.07.2020 01:56
-
Xaler02.06.2021 02:24
-
Logas2574328.09.2021 11:40
-
12312332432222106.08.2021 09:52
-
geneu12.06.2020 08:26
-
oleninaonii09.08.2021 14:47
-
полинадудка27.04.2021 20:22
-
Микаэла11123.01.2023 18:57
-
Fanny32128.12.2022 16:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.