Пример реализации в VBA Excel.
Код программы можно увидеть, нажав Alt+F11
var
s:string;
begin
read(s);
writeln(UpperCase(s));
end.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
99/9=11 остаток 0
11/9=1 остаток 2
Собираем число с конца из остатков от деления, начиная с последнего результата, меньшего 9. 120
99₁₀=120₉