<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(5).Println(',')
end.
<u>Результат</u>
1,2,3,4,5
SCREEN 12
CLS
LINE (10,100)_(10,50),BF
LINE (10,110)_(10,60),BF
LINE (10,120)_(10,70),BF
LINE (10,130)_(10,80),BF
LINE (10,140)_(10,90),BF
это г
Потому что антивирус может быть закончился или это не такие большие вирусы вред компьютеру не причинят )))
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (x,y,z):=ReadInteger3('Введите координаты 1, 2 кошки и мыши соответсвенно->');
Println(abs(x-z)=abs(y-z)? 'Мышь убежала': abs(x-z)>abs(y-z)? 'Вторая быстрее':'Первая быстрее');
end.
Пример(1):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 1 3 5
Вторая быстрее
Пример(2):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 3 1 5
Первая быстрее
Пример(3):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 1 5 3
Мышь убежала