<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
Использовать Чертежник
алг
нач
сместиться в точку (1,13)
нц 3 раз
Фигура
кц
кон
| Фигура
алг Фигура
нач
сместиться на вектор (1,-5)
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,5)
сместиться на вектор (4,0)
сместиться на вектор (0,-1)
сместиться на вектор (-3,0)
сместиться на вектор (0,-4)
сместиться на вектор (1,0)
сместиться на вектор (0,3)
сместиться на вектор (2,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (0,-1)
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
кон
// PascalABC.NET 3.3
begin
// а)
writeln('Результаты сдачи экзамена:');
var a:=ArrRandom(15,2,5); a.Println; // генерируем и выводим массив оценок
var k:=a.Where(x->x=2).Count; // подсчитываем количество двоек
writeln('Не сдали экзамен: ',k,' чел. Это ',100*k/15:4:1,'%'); // выводим на эран результаты
// б)
writeln('Данные по продаже компьютеров:');
var b:=ArrRandom(7,5,20); b.Println; // генерируем и выводим результаты продаж
writeln('По возрастанию:');
b.Sorted.Println; // сортируем по возрастанию и выводим
end.
Пример:
Результаты сдачи экзамена:
3 3 3 2 4 3 4 4 3 3 5 2 2 5 5
Не сдали экзамен: 3 чел. Это 20.0%
Данные по продаже компьютеров:
16 20 16 14 5 18 16
По возрастанию:
5 14 16 16 16 18 20