галина
?>

Нужно! определите, что будет выведено после исполнения алгоритма при f=2​

Информатика

Ответы

Vasilevna_Utenkova651
Будет работать только в 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
А) массиву будут принадлежать 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​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

arbekova
Pochkun-Oleg
denis302007
koldunovan
autofilters27
AOS2015
Вера1072
rinan2013
picassovrn
airon-082054
AOS2015
Кочугурова
Нана_Елена
dilovarnazarov1986
sespiridonov