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

В битве сошлись дракон и герой. У дракона h голов и t хвостов. У героя есть волшебный меч, который одним ударом отрубает дракону ровно c отростков (голов или хвостов). Когда у дракона осталось меньше c отростков, мечом ударить невозможно.После каждого удара героя, если отрублены все головы, герой побеждает. Иначе происходит следующее: •если этим ударом герой отрубил хотя бы одну голову, у дракона вырастает a новых голов;
•если этим ударом герой отрубил хотя бы один хвост, у дракона вырастает b новых хвостов;
•после всего этого дракон один раз кусает героя одной головой.
Герой хочет победить дракона, получив как можно меньше укусов. Удастся ли ему победить, и если да, то каково минимальное количество укусов?
Формат входных данных:
В первой строке записаны пять целых чисел, разделённых пробелами:h,t,a,b,c. Все они лежат в пределах от 1 до 10 000 включительно.
Формат выходных данных:
Выведите одно целое число: минимальное количество раз, которое дракон успеет укусить героя, или−1, если герой не сможет победить дракона.
Напишите код на Python 3, или на C++.

👇
Открыть все ответы
Ответ:
асаляя
асаляя
05.12.2022
Увеличьте шаг в 10 раз
До x := x + 0.02
После x := x + 0.02*10

Измените промежуток на котором строится график функции на [-5, 10]
До
x := -15;
    while x <= 15 do
После
x := -5;
    while x <= 10 do


Измените функцию на: 1) tg(x) ; 2) sin(x)+2*x.
До y := 0.4 * x + 2 * sin(3 * x);
После 2) y := sin(x)+2*x;
После 1) y := tan(x);


Выведите на экран график функции только в I и IV четвертях
До circle(x1, y1, 2);
После if x*y>=0 then circle(x1, y1, 2);


Измените цвет фона, цвет графика функции, цвет координатных осей
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
program Grafik;

uses GraphABC;
var
    x0, y0, x1, y1, k: integer;
    x, y: real;

begin
    SetWindowSize(640, 400);
    Window.Clear(clGold);
   
    x0 := 320;y0 := 200;k := 20;
    setPenColor(clRed);
    line(20, y0, 620, y0);
    line(x0, 20, x0, 380);
   
    setPenColor(clGreen);
    SetBrushColor(clLime);
    x := -5;
    while x <= 10 do
    begin
        //        y := 0.4 * x + 2 * sin(3 * x);
        //        y := sin(x)+2*x;
        y := tan(x);
        x1 := trunc(x0 + x * k);
        y1 := trunc(y0 - y * k);
        if x * y >= 0 then circle(x1, y1, 2);
        x := x + 0.02
    end;
end.
4,6(53 оценок)
Ответ:

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.

4,5(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ