1) Крик
2)Барабан
3)Интернет
4) Передатчик
5)Телефон
6)Костёр
7)Телевизор
8)Радиосвязь
9)Морзе
10) Приёмник
…………………………………………
Получилось слово КАНАЛ СВЯЗИ.
Использовать Чертежник
алг Звезды
нач
нц 2 раз
поднять перо
сместиться на вектор (8,0)
опустить перо
сместиться на вектор (3,6)
сместиться на вектор (3,-6)
сместиться на вектор (-6,4)
сместиться на вектор (6,0)
сместиться на вектор (-6,-4)
поднять перо
<span>кц</span>
На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
write('Input a[',i,']=');
readln(mas[i]);
x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);readln;
<span>end.
Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = </span>
Var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.