Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
21div4=5
7div4=1
21mod4=1
7mod4=3
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,-5,25); a.Println;
a.Transform(t->t.Between(-2,20)? t*t : t); a.Println
end.
<u>Пример</u>
-3 5 14 -3 10 12 1 7 10 2 15 22 5 4 -3 21 3 -1 10 21
-3 25 196 -3 100 144 1 49 100 4 225 22 25 16 -3 21 9 1 100 21