М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
OPGG
OPGG
07.11.2021 06:42 •  Информатика

Зробити Гру на JAVASCRIPT “Вгадай число” У вас є 2 поля, в які потрібно ввести верхній та нижні кордони. Тобто в межах яких чисел буде загадано число. Посля натискання кнопки “Почати” повинно з´явитися confirm повідомлення з текстом “Готові почати?”.
Якщо відповідь “true”, то треба сгенерувати рандомне число в заданих рамках та показати prompt з текстом "Яке число вiд " + minNumber + " до " + maxNumber + " я загадав?", де minNumber і maxNumber - числа з наших полiв. Потім потрібно ввести число в promt вікно, а наша програма має порівняти рандомне число з тим, що ми ввели в promt. Якщо наше число більше за рандомне число, то показати повідомлення “Трохи більше”, якщо менше, то “Трохи менше”, якщо правильно, то “Вірно”.
Якщо на питання “Готові почати?” відповідь false, то показати повідомлення “До наступного разу!”

👇
Открыть все ответы
Ответ:
Roland227
Roland227
07.11.2021
Type Massiv=array[1..100] of integer;
var 
a,b:Massiv;
n,i,j,p:integer;
begin
randomize;
write('Ввод n=');
readln(n);
writeln('Нужно неубывание (1) или невозрастание (2)?');
readln(p);
if p=2 then p:=-1; 
writeln('Массив:');
a[1]:=random(20)-5;
for i:=2 to n do a[i]:=a[i-1]+p*random(5);
write('(');
for i:=1 to n do write(a[i],' ');
write(')');
writeln;

i:=1; j:=0;
while i<n do
 begin
  if a[i]=a[i+1] then begin inc(j); b[j]:=a[i]; end;
  while (i<n)and(a[i]=a[i+1]) do inc(i);
  inc(i);
 end;
writeln('Новый массив:');
for i:=1 to j do write(b[i]:4);
readkey
End.

Пример:
Ввод n=20
Нужно неубывание (1) или невозрастание (2)?
1
Массив:
(11 12 12 12 16 16 17 21 25 25 26 30 30 32 36 36 38 42 45 47 )
Новый массив:
  12  16  25  30  36
4,8(74 оценок)
Ответ:
bashatsn
bashatsn
07.11.2021
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,9); a.Println;
  var d:=new dictionary<integer,integer>;
  foreach var e in a do d[e]:=d.Get(e)+1;
  var s:=d.Where(x->x.Value>1).Select(x->x.Key);
  if s.Count=0 then Writeln('Нет дублирующихся элементов')
  else begin
    Write('Дублирующиеся элементы: '); s.Println;
    Write('В порядке возрастания:  '); s.Sorted.Println
    end
end.

Пример
n= 20
6 8 7 3 8 6 4 9 9 3 6 1 6 6 9 7 2 5 9 9
Дублирующиеся элементы: 6 8 7 3 9
В порядке возрастания:  3 6 7 8 9
4,6(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ