ToPoint(1,1);
PenDown;
ToPoint(1,5);
ToPoint(6,5);
PenUp;
ToPoint(6,1);
PenDown;
ToPoint(1,1)
end.
Ответ:
1. Найти в интернете желательно бесплатную антивирусную программу
2. Удостовериться, что программа загружается с официального сайта разработчика этой программы
3. Установить загруженную программу
4. Радоваться жизни
Объяснение:
1. Записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).
2. Вычесть цифры младшего разряда. Примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.
3. Записать результат под горизонтальной чертой на вертикали единиц.
4. Повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n.Between(2,10) then begin
var i:=1;
repeat
Write(n,'x',i,'=',n*i,' ');
i+=1
until i>10;
Writeln
end
else Writeln('Число должно быть от 2 до 10')
end.
<u>Пример</u>
n= 6
6x1=6 6x2=12 6x3=18 6x4=24 6x5=30 6x6=36 6x7=42 6x8=48 6x9=54 6x10=60