Question

СРОЧНО. ПОЖАЛУЙСТА. Паскаль1.Найти наименьшее и наибольшее число из 20 случаных чисел2.Найти количество не парных чисел из случайно введенных3.Напечатать все двузначные числа, которые делятся на 34.Напечатать 10 случайных чисел5.Найти произведение чисел из заданного промежутка6.Дано целое положительное число. Напечатать количество и сумму его цифр7.Дано целое положительное число. Узнать есть ли в числе не парные цифры. Если есть , то напечатать True, если нет, то напечатать False8.Напечатать фразу "Я учусь программировать" указанному количество раз. ​

Answer 1

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.

Answer 2

Конечно! Вот решения ваших задач на языке программирования Паскаль:

1. Найти наименьшее и наибольшее число из 20 случайных чисел:

pascalCopy code
program Task1;
var
  numbers: array[1..20] of Integer;
  i, min, max: Integer;
begin
  Randomize;
  
  for i := 1 to 20 do
    numbers[i] := Random(100); // Генерируем случайное число от 0 до 99
  
  min := numbers[1];
  max := numbers[1];
  
  for i := 2 to 20 do
  begin
    if numbers[i] < min then
      min := numbers[i];
    if numbers[i] > max then
      max := numbers[i];
  end;
  
  writeln('Наименьшее число: ', min);
  writeln('Наибольшее число: ', max);
end.

2. Найти количество не парных чисел из случайно введенных:

pascalCopy code
program Task2;
var
  num, count: Integer;
begin
  count := 0;
  
  repeat
    write('Введите число (для выхода введите 0): ');
    readln(num);
    
    if num mod 2 <> 0 then
      count := count + 1;
  until num = 0;
  
  writeln('Количество не парных чисел: ', count);
end.

3. Напечатать все двузначные числа, которые делятся на 3:

pascalCopy code
program Task3;
var
  num: Integer;
begin
  writeln('Двузначные числа, которые делятся на 3:');
  
  for num := 10 to 99 do
  begin
    if num mod 3 = 0 then
      writeln(num);
  end;
end.

4. Напечатать 10 случайных чисел:

pascalCopy code
program Task4;
var
  i: Integer;
begin
  Randomize;
  
  writeln('10 случайных чисел:');
  
  for i := 1 to 10 do
    writeln(Random(100)); // Генерируем случайное число от 0 до 99
end.

5. Найти произведение чисел из заданного промежутка:

pascalCopy code
program Task5;
var
  start, finish, product, i: Integer;
begin
  write('Введите начальное число: ');
  readln(start);
  
  write('Введите конечное число: ');
  readln(finish);
  
  product := 1;
  
  for i := start to finish do
    product := product * i;
  
  writeln('Произведение чисел: ', product);
end.

6. Дано целое положительное число. Напечатать количество и сумму его цифр:

pascalCopy code
program Task6;
var
  number, digit, sum, count: Integer;
begin
  write('Введите целое положительное число: ');
  readln(number);
  
  sum := 0;
  count := 0;
  
  while number > 0 do
  begin
    digit := number mod 10;
    sum := sum + digit;
    count := count + 1;
    number := number div 10;
  end;
  
  writeln('Количество цифр: ', count);
  writeln('Сумма цифр: ', sum);
end.

7. Дано целое положительное число. Узнать, есть ли в числе не парные цифры. Если есть, то напечатать True, если нет, то напечатать False:

pascalCopy code
program Task7;
var
  number, digit: Integer;
  foundOddDigit: Boolean;
begin
  write('Введите целое положительное число: ');
  readln(number);
  
  foundOddDigit := False;
  
  while number > 0 do
  begin
    digit := number mod 10;
    
    if digit mod 2 <> 0 then
    begin
      foundOddDigit := True;
      break;
    end;
    
    number := number div 10;
  end;
  
  if foundOddDigit then
    writeln('True')
  else
    writeln('False');
end.

8. Напечатать фразу "Я учусь программировать" указанное количество раз:

pascalCopy code
program Task8;
var
  i, count: Integer;
begin
  write('Введите количество повторений: ');
  readln(count);
  
  for i := 1 to count do
    writeln('Я учусь программировать');
end.

Надеюсь, эти решения помогут вам!