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

у чому полагае автоматична нумерация елементив списку у меня тест кто знает я подпишусь

👇
Ответ:
72737
72737
11.01.2023

В унікальності значень

4,7(18 оценок)
Открыть все ответы
Ответ:
Nikita20330
Nikita20330
11.01.2023
//1

 <script type="text/javascript">
   var ans=prompt('Name a vegetable that is green on the outside and  white on the inside. It starts with C.','answer');
   if(ans=='Cucumber')
         alert('Congratulations, answer is right!');
         else
        alert('Wrong answer');
   alert('Game over');
 </script>

//2
 <script type="text/javascript">
   var count=0;
   var ans=prompt('Name a vegetable that is green on the outside and  white on the inside. It starts with C.','answer');
   if(ans=='Cucumber')
         count=count+1;
   ans=prompt('Name a tiny, round green vegetable that grows in pods. It starts with P. Children like it.','answer');
   if(ans=='Peas')
         count=count+1;
   ans=prompt('What goes up when the rain comes down?','answer');
   if(ans=='Umbrella')
         count=count+1;
   ans=prompt('I am purple, yellow, red,/and green./The King cannot reach me and neither can the Queen./I show my colours after the rain,/And only when the sun comes out again.','answer');
   if(ans=='Rainbow')
         count=count+1;
   alert('Count of right answers:'+count);
   alert('Game over');
 </script>
4,4(59 оценок)
Ответ:
IsabelleJohnson
IsabelleJohnson
11.01.2023
//Pascal ABC.NET 3.1 сборка 1256

uses
 GraphABC;

 Var
 n:integer;

 procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;

procedure points(n:integer);
Var
 x,y,i:integer;
begin
i:=0;
while i<1000 do
 begin
  x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1); 
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
  setpixel(x,y,rgb(random(255),random(255),random(255)));
  inc(i);
 end;
end;

begin
randomize;
square(n);
points(n);
end.
4,8(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ