В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
derzhak12345
derzhak12345
30.06.2022 04:37 •  Информатика

В формулах используются для указания фиксированного адреса ячейки. Т.е. при перемещении или копировании формулы ссылки не меняются. Для записи используется знак $ (например, $C$2). При копировании формулы какое число получится в ячейке С6?

Показать ответ
Ответ:
metior
metior
05.02.2022 18:04
Static void Main(string[] args)
{
int GameCount = 2; //максимальный диапазон
int number;
int live = 2; //попытки
int RandomInt = new Random().Next(1,GameCount+1); //загадывает число от 1 до 10
Console.WriteLine("Число загадано. \nНапишите число от 1 до {0}.",GameCount);
for (int i = 0;i<GameCount;i++)
{
number = int.Parse(Console.ReadLine());//считывает ваше число с клавиатуры
if (number > RandomInt && live > 1)
{
live--;
Console.WriteLine("Загаданное число меньше.Осталось попыток: "+live);
}
else if (number < RandomInt && live > 1)
{
live--;
Console.WriteLine("Загаданное число больше.Осталось попыток: " + live);
}
else if (number == RandomInt && live > 0)
{
Console.WriteLine("Вы выиграли!");
break;
}
else
{
Console.WriteLine("Вы проиграли!\nЗаданное число: "+RandomInt);
break;
}

}
Console.ReadLine(); //чтобы программа сразу не закрывалась после игры
}
0,0(0 оценок)
Ответ:
//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
 ars:array of array of string;
 i:integer;
 
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
 i,j:integer;
begin;
for i:=1 to n do
 begin;
   for j:=1 to n do
    begin;
     ar[i,j]:=random(9);
     str(ar[i,j],ars[i,j]);
    end;
 end;
end;

procedure burning(ars:array of array of string);
var
 i,j:integer;
 t:text;
 begin;
  assign(t,'text.txt');
  rewrite(t);
  for i:=1 to n do
   begin;
    writeln(t,' ');
     for j:=1 to n do
      write(t,ars[i,j],' ');
   end;
 end;  

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
 begin;
  setlength(ar[i],n+1);
  setlength(ars[i],n+1);
 end;
complection(ar,ars);
burning(ars);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота