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

Вспомните басню крылова "квартет". там было 4 животных: мартышка, осел, козел, мишка. сколькими различными могут попытаться сесть в ряд эти музыканты? изобразите соответствующий граф. ответьте! нужно на !

👇
Ответ:
margaritakulak
margaritakulak
27.07.2022
Если я не ошибаюсь, то возможны
4,4(75 оценок)
Ответ:
масяня194
масяня194
27.07.2022
Думаю, что
4,4(72 оценок)
Открыть все ответы
Ответ:
Danya1111111111135
Danya1111111111135
27.07.2022

1) Какой оператор организует цикл с предусловием?

- repeat <операторы > until условие; (это цикл с постусловием)

- while условие until <оператор>; (это невалидная конструкция)

+ while условие do <оператор>;

- repeat <операторы > do условие. (это невалидная конструкция)

2) Какие из приведенных операторов организуют цикл со счетчиком?

- for i = n1 to n2 do оператор; (тут вместо "=" должно было бы быть ":=". В этом случае получился бы цикл с счетчиком)

- while условие do <оператор>; (это цикл с предусловием)

- repeat <операторы > until условие; (это цикл с постусловием)

+ For i := n1 downto n2 do оператор; (i в цикле перебираются от n1 до n2, если n2 <= n1)

3) Напишите, что будет выведено на экран в ходе выполнения фрагмента программы:

a) FOR k := 1 TO 4 do Write(k);

1234

На каждой итерации выводится i, i пробегает значения от 1 до 4.

b) y := 0; FOR x := 1 TO 9 do y := y + 1; Writeln (y);

9

В отформатированном виде всё выглядит так:

y := 0;

for x := 1 to 9 do

   y := y + 1;

writeln(y);

Сначала y = 0, потом 9 раз к y прибавляется 1, затем полученное значение выводится на экран.

4,6(23 оценок)
Ответ:
bnmlkru
bnmlkru
27.07.2022
Program n1;
var
i, n: integer;
x,y : array[1..100] of integer;
per: real;
function dlina(x1,x2,y1,y2 : integer) : real;
begin
dlina := sqrt(sqr(x2-x1) + sqr(y2-y1));
end;
begin
write('введите кол-во сторон: ');
readln(n);
per := 0;
write('введите x1 координату: ');
readln(x[1]);
write('введите y1 координату: ');
readln(y[1]);
for i:=2 to n do
begin
write('введите х',i,' координату: ');
readln(x[i]);
write('введите y',i,' координату: ');
readln(y[i]);
per := per + dlina(x[i-1],y[i-1],x[i],y[i]);
end;
per := per + dlina(x[i],y[i],x[1],y[1]);
writeln('периметр искомого ',n,' угольника',per);
readln;
end.
4,6(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ