С оператора mod можно получить от исходного числа единичный разряд, если делить число на 10, т.е. 123 mod 10 = 3, 524 mod 10 = 4. Если делить на сто, то можно получить еще и десятки: 123 mod 100 = 23, 524 mod 100 = 24.
С оператора div можно отбросить от числа разряды: 123 div 10 = 12, 123 div 100 = 1
Пример программы на языке PascalABC.Net:
var a, b: integer;
begin
write('Введите двузначное число: ');
readln(a);
write('Введите трехзначное число: ');
readln(b);
writeln();
writeln('Двузначное число ', a, ': ');
writeln('Десятки: ', a div 10);
writeln('Единицы: ', a mod 10);
writeln();
writeln('Трехзначное число ', b, ': ');
writeln('Сотни: ', b div 100);
writeln('Десятки: ', b div 10 mod 10);
writeln('Единицы: ', b mod 10);
end.
1)
var a: array [1..9] of integer;
begin
for var i := 1 to 9 do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
var sum := 0;
for var i := 1 to 9 do
if a[i] > 45 then
sum += a[i];
writeln('Сумма: ', sum);
end.
2)
var a: array [1..9] of integer;
begin
for var i := 1 to 9 do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
var sum := 0;
for var i := 1 to 9 do
sum += a[i];
writeln('Сумма: ', sum);
end.
3)
var a: array [1..9] of integer;
begin
for var i := 1 to 9 do
begin
a[i] := random(-10, 10);
write(a[i], ' ');
end;
writeln();
var min := a[1];
for var i := 2 to 9 do
if (a[i] mod 2 <> 0) and (a[i] < min) then
min := a[i];
writeln('Min: ', min);
end.
24
Объяснение:
4! = 4*3*2*1 = 24