Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.
3,6,9,12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,,60,63,66,69,72,75,78,81,84,87,90,93,96,99.
Вроде так
Модель, описывающая ситуации, события, процессы, явления или предметы при помощи естественного языка называется словесной. Словесные модели также являются знаковыми.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandomReal(ReadInteger('n='), -99, 99)
.Select(t -> Round(t, 2)).ToArray;
a.Println;
a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;
a.Sort;
a.Println
end.
Ноутбук. принтер. ток. кот. ещё есть трояк и каеф, но это вряд ли подойдёт.