1.
var x: integer;
begin
randomize;
x := random(9000) + 1000;
x := x - x mod 10;
writeln(x);
end.
2.
var x, _sum: integer;
begin
randomize;
_sum := 0;
x := random(9000) + 1000;
x := x - x mod 10;
writeln('Случайное число:', x);
while x > 0 do
begin
_sum := _sum + x mod 10;
x := x div 10;
end;
if _sum mod 3 = 0 then
writeln('Сумма цифр кратна трём!')
else
writeln('Сумма цифр не кратна трём!');
end.
3.
var x, _sum: integer;
begin
randomize;
_sum := 0;
x := random(9000) + 1000;
writeln('Случайное число: ', x);
write('Если записать его в обратном порядке: ');
while x > 0 do
begin
write(x mod 10);
x := x div 10;
end;
end.
