program ugadai;
var a,b,k:integer;
begin
b:=random(101)-50;
writeln('Попробуйте угадать число от -50 до 50 за 10 попыток');
writeln;
k:=1;
repeat
write('Попытка ',k,'. Введи число: ');
readln(a);
if a>b then writeln('Загаданное число меньше!')
else if a<b then writeln('Загаданное число больше!')
else if a=b then
begin
writeln;
writeln('Вам удалось!');
k:=13;
end;
k:=k+1
until k>10;
if k=11 then
begin
writeln;
writeln('Попробуйте еще раз.')
end
end.
Объяснение:
Загадываем число (random)
Цикл с пост условием, k - счётчик попыток.
Условный оператор для корректировки угадывания.
Если все попытки исчерпаны, вывод предложения попробовать ещё раз.
А)1. Выбрать пункт ,,Вставка’’
2.Выбрать окно ,,Таблица’’
3. Настроить ,,Таблица 7x5’’(7столбцов,5строк)
ГОТОВО
Б)Строк 5
Столбцов 7
В)Первый Соответствующие пункты меню можно найти на закладке «Макет» вкладки «Работа с таблицами», а также в появляющемся меню после нажатия правой кнопкой мыши на таблицу. На закладке «Макет» при выборе пункта меню «Удалить» раскрывается список, в котором можно выбрать «Удалить столбцы» и «Удалить строки». ( )
Второй выделить содержимое ячейки в строке или столбце, которые вы хотите удалить. Откроется всплывающее меню. Нажмите кнопку Удалить и выберите команду Удалить строку или удалить столбец.
Объяснение:
Точка с координатами (x, y) принадлежит области, если 0 <= x <= pi и 0 < y < sin(x), лежит на границе, если первое выполнено, и y = 0 или y = sin(x), а иначе не лежит в области.
Код (PascalABC.NET 3.2):
begin
var x, y: real;
readln(x, y);
if (0 <= x) and (x <= pi) then
if (0 < y) and (y < sin(x)) then
writeln('Внутри области')
else if (0 = y) or (y = sin(x)) then
writeln('На границе')
else
writeln('Не принадлежит')
else
writeln('Не принадлежит')
end.