1) Выбираем двух персонажей
2) Создаем скрипт для каждого персонажа
3) Для того, чтобы они шли друг к другу, поменять направление для одного (в левую сторону). Изменить стиль вращения.
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var m1:=Arr('ноль','один','два','три','четыри','пять','шесть','семь','восемь','девять');
Println('Это',m1[ReadInteger]);
end.
Пример:
9
Это девять
............................................
2 задача:утверждение 1 верно т.к в остальных случаях(именно 2-3)возможен такой исход,что дочка может приехать с мамой,что означает их равнозначность.
3 задача:САДВ
1 задача:в условии сказано 6 участников,а перечислено только 5.Поэтому можно сказать,что условие задачи не является корректным
var i,j,k,s:integer;
Begin
j:=0;
for i:=1 to 10 do
j:=j+i;
writeln('Циклом for=',j);
j:=0;
i:=0;
while i<10 do begin
i:=i+1;
j:=j+i; end;
writeln('Циклом while=',j);
j:=0;
i:=0;
repeat
i:=i+1;
j:=j+i;
until i=10;
writeln('Циклом until=',j);
end.