Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на вектор (–4, 8)
Повтори 4 раза
Команда1 Сместиться на вектор (–2, –5) Сместиться на вектор (4, 6)
конец
Какую команду надо выполнить Чертёжнику вместо команды Команда1, чтобы вернуться в исходную точку, из которой он начал движение?

Сместиться на вектор (-1,3)
Сместиться на вектор (1,-3)
Сместиться на вектор (1,3)
Сместиться на вектор (-1,-3)

Чертёжнику был дан для исполнения следующий алгоритм:
Сместиться на вектор (2, 6)
Повтори 2 раз
Сместиться на вектор (2, 1) Сместиться на вектор (–5, 4) Сместиться на вектор (1,–4)
Конец
Сместиться на вектор (-2,-8)
Сместиться на вектор (2,8)
Сместиться на вектор (2,-8)
Сместиться на вектор (-2,8)

Чертёжнику был дан для исполнения следующий алгоритм:
Сместиться на вектор(−1,1) Повтори 4 раз
Сместиться на вектор(3,1) Сместиться на вектор(0, 2) Сместиться на вектор(−1, 4) конец

Сместиться на вектор (-7,-29)
Сместиться на вектор (7,-29)
Сместиться на вектор (7,29)
Сместиться на вектор (-7,29)

Восстановите правильный порядок команд исполнителя Чертёжник, чтобы получился рисунок

Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на вектор (–4, 8) Повтори 4 р

Показать ответ

Ответ:

lagoshinanatal

14.03.2022 23:21

Задание 1.
var
A, B, C, F: boolean;
i, j, k: integer;

begin
for i := 0 to 1 do
    for j := 0 to 1 do
      for k := 0 to 1 do
      begin
        A := (i = 1); B := (j = 1); C := (k = 1);
        F := ((A and B) and C) = (A and (B and C));
        Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F)
      end
end.

Результат выполнения программы:
A=False, B=False, C=False, результат сравнения:True
A=False, B=False, C=True, результат сравнения:True
A=False, B=True, C=False, результат сравнения:True
A=False, B=True, C=True, результат сравнения:True
A=True, B=False, C=False, результат сравнения:True
A=True, B=False, C=True, результат сравнения:True
A=True, B=True, C=False, результат сравнения:True
A=True, B=True, C=True, результат сравнения:True

Задание 2.
var
a, b, c: integer;

begin
for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c)
end.

Результат выполнения программы:
100
147

1)доказать (путем перебора возможных значений), что для любых величин а, в, с типа boolean следующая

1)доказать (путем перебора возможных значений), что для любых величин а, в, с типа boolean следующая

0,0(0 оценок)

Ответ:

lenamakar67

17.04.2023 15:30

var
s,s1:string;
a:array[1..100] of string;
n,i,j,k:byte;
begin
writeln('Введите текст из слов, разделенных пробелами');
readln(s);
s:=' '+s+' ';
n:=length(s);
i:=2;k:=0;while i<=n do
if (s[i]<>' ')and (s[i-1]=' ') then
begin k:=k+1;
j:=i;
s1:='';
while (j<=n) and (s[j]<>' ') do
begin
s1:=s1+s[j];
j:=j+1;
end;
a[k]:=s1;
i:=i+length(s1);
end
else i:=i+1;
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i]>a[j] then
begin s1:=a[i];
a[i]:=a[j];
a[j]:=s1
end;
writeln('Слова текста в алфавитном порядке:');
for i:=1 to k do
writeln(a[i]);
end.

0,0(0 оценок)

Популярные вопросы: Информатика