Question

I В паскале с помощью генератора случайных чисел получить двузначное число и1) найти и вывести сумму его цифр2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)

Answer 1

Program p1;
var a:integer;
begin
a:=random(89)+10;
writeln('a= ',a);
writeln('Summa tsifr= ',a mod 10+a div 10);
writeln('4islo naoborot= ',a mod 10, a div 10);
end.

program p2;
var a:integer;
begin
a:=random(899)+100;
writeln('a= ',a);
if (a mod 10)=((a div 100) mod 10) then writeln('POLIMER')
else writeln('NE POLIMER');
end.

Answer 2

I. В Pascal с помощью генератора случайных чисел можно получить двузначное число следующим образом:

1) Сначала сгенерируем случайное двузначное число, например, с помощью функции Random, которая возвращает случайное целое число в заданном диапазоне. 2) Найдем и выведем сумму его цифр, разделив число на десятки и единицы, затем сложив полученные цифры. 3) Сформируем число, в котором поменяются разряды, например, если было число 13, то поменяем разряды и получим число 31.

Пример кода на Pascal:

program RandomNumber;

var
  num, sum, reversedNum, temp: integer;

begin
  Randomize;
  num := Random(90) + 10; // генерируем двузначное число
  writeln('Сгенерированное число: ', num);
  
  sum := (num div 10) + (num mod 10); // находим сумму цифр
  writeln('Сумма цифр числа: ', sum);
  
  // меняем разряды числа
  temp := num;
  reversedNum := 0;
  while temp <> 0 do
  begin
    reversedNum := reversedNum * 10 + (temp mod 10);
    temp := temp div 10;
  end;
  writeln('Число с поменяными разрядами: ', reversedNum);
end.

II. В Pascal с помощью генератора случайных чисел можно получить трехзначное число и определить, является ли оно полиндромом (например 121 - является, 123 - нет).

Пример кода на Pascal:

program RandomNumber;

var
  num, originalNum, reversedNum, remainder: integer;

begin
  Randomize;
  num := Random(900) + 100; // генерируем трехзначное число
  writeln('Сгенерированное число: ', num);
  
  originalNum := num;
  reversedNum := 0;
  
  // переворачиваем число
  while originalNum <> 0 do
  begin
    remainder := originalNum mod 10;
    reversedNum := reversedNum * 10 + remainder;
    originalNum := originalNum div 10;
  end;
  
  // проверяем, является ли число полиндромом
  if num = reversedNum then
    writeln('Число ', num, ' является полиндромом')
  else
    writeln('Число ', num, ' не является полиндромом');
end.

Это примеры кода на Pascal для генерации случайных чисел, нахождения суммы цифр и определения полиндрома для двузначного и трехзначного чисел.