Будет работать только в pascal.abc. желательно вводите величины от 30-50, так как всё измеряется в пикселях. program zagacha; uses graphabc; var r, a, b: integer; begin writeln('введите значение r'); readln(r); writeln('введите значение a'); readln(a); writeln('введите значение b'); readln(b); if ((r + a + b) < 30) or ((r + a + b) > 200) then begin r : = 50; a : = 100; b : = 100; end; drawcircle(round(window.width / 2), round(window.height / 2), r); drawrectangle(round((window.width - a) / 2), round((window.height - b) / 2), round((window.width + a) / 2) + 1, round((window.height + b) / 2) + 1); if (a = b) and (a * b = 4 * r * r) then textout(round(window.width / 2 - 50), 10, 'окружность вписана') else if (a = b) and (a * b = 2 * r * r) then textout(round(window.width / 2 - 50), 10, 'окружность описана') else textout(round(window.width / 2 - 50), 10, 'окружность посторонняя') end.
pokupatel688
23.10.2020
А) массиву будут принадлежать 10 случайных чисел, так как задан цикл от 1 до 10, а случайные числа команде random, так же можно заменить, что есть (101)-50, а это значит, что в значениях массива, будут и отрицательные числа. б) еще проще, тут уже цикл задан от 1 до 20, то бишь 20 значений для массива(20 цифр), а a[i] : = i это значит, то что, массиву будут присвоены числа по порядку от 1 до 20, потому что массив = iв) тут цикл задан от 1 до 5, и массив каждый раз будет выполнять действие, заданное по условию, то бишь умножить и вычесть, i - каждый раз будет увеличиваться на 1, и получиться, что (2*1-1) (2*2-1), и так число будет увеличиваться до 5.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Нужно! определите, что будет выведено после исполнения алгоритма при f=2