1. Щелкаем по надписи правой кнопкой мыши
2. Выбираем пункт "Формат надписи..."
3. Вкладка "Цвета и линии"
4. Выбираем цвет линии "Нет цвета"
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Println(' ^~^ ');
Println('(`:'')');
Println('<###>');
Println(' / \ ');
Println('= = ')
end.
<h2>Можно Println заменить на Writeln</h2>
В кодировке Unicode каждый символ кодируется двумя байтами, поэтому строка займет 35×2 = 70 байт.
Тогда таких строк будет 1050 / 70 = 15
Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
Последним он собрал 10-ое яблоко :-D