Написать программу на pascalabcnetвходные данныедана последовательность натуральных чисел, завершаю - inulikb

ganna1790

23.12.2021

Program kek;var r,q,z,s,n:integer;beginwrite ('введите непустую невозрастающуюю последовательность целых чисел, заканчивающуююся нулем');readln (n);z:=0;q:=1;while n<>0 dobeginif n=z then q:=q+1 else z:=n;readln (n); end;write ('кол-во одинаковых, идущих подряд чисел равно ', q);end.

vova00831

23.12.2021

хаха

Объяснение:

Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.Привет я Магдалена, практикую привороты на любимого и многое другое. Недавно начала, поэтому бесплатно первый сеанс, даю советы и обучаю. Если интересно

Пиши, это не враньё и есть несколько отзывов, пока что не много.

zdanovich90764

23.12.2021

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,10,30); a.Println;
a.Transform(x->x*3); a.Println
end.

Пример
15 27 21 27 22 15 13 20 16 26
45 81 63 81 66 45 39 60 48 78

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(80,50,100); a.Println;
var b:=a.Select(x->Sqrt(x)).ToArray; b.Println
end.

Пример
53 52 62 91 55 89 61 74 88 92 50 65 61 95 74 76 75 90 67 98 76 53 51 58 83 58 84 99 54 80 86 60 69 84 96 71 76 66 92 66 87 92 65 89 56 89 96 71 66 66 68 63 98 72 81 50 50 53 57 97 55 63 69 58 55 90 97 77 99 52 50 58 99 50 61 84 88 63 52 95
7.28010988928052 7.21110255092798 7.87400787401181 9.53939201416946 7.41619848709566 9.4339811320566 7.81024967590665 8.60232526704263 9.38083151964686 9.59166304662544 7.07106781186548 8.06225774829855 7.81024967590665 9.74679434480896 8.60232526704263 8.71779788708135 8.66025403784439 9.48683298050514 8.18535277187245 9.89949493661167 8.71779788708135 7.28010988928052 7.14142842854285 7.61577310586391 9.1104335791443 7.61577310586391 9.16515138991168 9.9498743710662 7.34846922834953 8.94427190999916 9.2736184954957 7.74596669241483 8.30662386291807 9.16515138991168 9.79795897113271 8.42614977317636 8.71779788708135 8.12403840463596 9.59166304662544 8.12403840463596 9.32737905308882 9.59166304662544 8.06225774829855 9.4339811320566 7.48331477354788 9.4339811320566 9.79795897113271 8.42614977317636 8.12403840463596 8.12403840463596 8.24621125123532 7.93725393319377 9.89949493661167 8.48528137423857 9 7.07106781186548 7.07106781186548 7.28010988928052 7.54983443527075 9.8488578017961 7.41619848709566 7.93725393319377 8.30662386291807 7.61577310586391 7.41619848709566 9.48683298050514 9.8488578017961 8.77496438739212 9.9498743710662 7.21110255092798 7.07106781186548 7.61577310586391 9.9498743710662 7.07106781186548 7.81024967590665 9.16515138991168 9.38083151964686 7.93725393319377 7.21110255092798 9.74679434480896

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Какая архитектура сети используется при работе сетевых сервисов?

Как называется графика, формируемая из обьектов графических примитивов и описывающих их математических формул точечная векторная растровая пиксельная

Используя одну процедуру постоить процедуру надо, не понимаю как

Суммативное оценивание за раздел «Как разрабатываются компьютерные игры»  Цель обучения            6.3.2.1 Поэтапно разбирать решение задачи&nbsp...

Совокупность знаков, при которых записываются числа, называются:

В предложенном списке выберите формулы, содержащие абсолютную ссылку. =СУММ($A6:A$10) =МИН(D5:D12) =ЧАСТНОЕ($C$6;K6) =СРЗНАЧ(G7:G20) =КОРЕНЬ($F$7) =C3*$D$1

Дан фрагмент программы: mov ax, 0ah mov bx, 0ah xor ax, bx какое значение будет содержаться в регистре ax?

Сканируется изображение размером 100х100см. разрешающая сканера 300dpi, глубина цвета=32 бит. какой объём будет иметь полученный фаил

(a, b) – Координаты слона, (c, d) — координаты другой фигуры.1234Со о лa=int(input())b=int(input()C=int(input())d=int(input()ifprint("YES")else :| print("No")7not(a+b==c+d) or notla-h==d-d)

с созданием программы(scratch 2)

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Какая архитектура сети используется при работе сетевых сервисов?

Как называется графика, формируемая из обьектов графических примитивов и описывающих их математических формул точечная векторная растровая пиксельная

Используя одну процедуру постоить процедуру надо, не понимаю как ​

Совокупность знаков, при которых записываются числа, называются:

В предложенном списке выберите формулы, содержащие абсолютную ссылку. =СУММ($A6:A$10) =МИН(D5:D12) =ЧАСТНОЕ($C$6;K6) =СРЗНАЧ(G7:G20) =КОРЕНЬ($F$7) =C3*$D$1

Дан фрагмент программы: mov ax, 0ah mov bx, 0ah xor ax, bx какое значение будет содержаться в регистре ax?

Сканируется изображение размером 100х100см. разрешающая сканера 300dpi, глубина цвета=32 бит. какой объём будет иметь полученный фаил

(a, b) – Координаты слона, (c, d) — координаты другой фигуры.1234Со о лa=int(input())b=int(input()C=int(input())d=int(input()ifprint("YES")else :| print("No")7not(a+b==c+d) or notla-h==d-d)​

с созданием программы(scratch 2)

Используя одну процедуру постоить процедуру надо, не понимаю как

(a, b) – Координаты слона, (c, d) — координаты другой фигуры.1234Со о лa=int(input())b=int(input()C=int(input())d=int(input()ifprint("YES")else :| print("No")7not(a+b==c+d) or notla-h==d-d)