Question

Кто в паскале разбирается помогите пожалуйста !! 1) Найти сколько чисел, введенных с клавиатуры пользователем оканчиваются на 3 (количество чисел, которые ввел пользователь известно) 2) Найти произведение чисел, введенных с клавиатуры, которые кратны 3 и оканчиваются на 9 (количество чисел, которые ввел пользователь известно) 3) Камера наблюдения регистрирует режим скорости проезжающих мимо нее машин. Найти максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 40 км в час, выведите "ДА", иначе выведите "НЕТ".

Answer 1

Задание 1:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Ответ:',a.Count(x->x mod 10 = 3));
• end.

Задание 2:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Ответ:',a.Where(x->(x mod 3 = 0) and (x mod 10 = 9)).Product);
• end.

Задание 3:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Максимальная скорость:', a.Max);
• Println('Была ли меньше 40км/ч:', a.Min < 40 ? 'Да' : 'Нет');
• end.

Примеры работ:

Answer 2

Конечно, я помогу вам с этими задачами на языке Pascal. Ниже приведены решения каждой из задач:

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

pascalCopy code
program Task1;

var
  count, num, lastDigit, countEndingWith3: integer;

begin
  writeln('Введите количество чисел:');
  readln(count);
  
  countEndingWith3 := 0;
  
  writeln('Введите числа:');
  for i := 1 to count do
  begin
    readln(num);
    lastDigit := num mod 10;
    if lastDigit = 3 then
      countEndingWith3 := countEndingWith3 + 1;
  end;
  
  writeln('Количество чисел, оканчивающихся на 3: ', countEndingWith3);
end.

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

pascalCopy code
program Task2;

var
  count, num, product: integer;

begin
  writeln('Введите количество чисел:');
  readln(count);
  
  product := 1;
  
  writeln('Введите числа:');
  for i := 1 to count do
  begin
    readln(num);
    if (num mod 3 = 0) and (num mod 10 = 9) then
      product := product * num;
  end;
  
  writeln('Произведение чисел, кратных 3 и оканчивающихся на 9: ', product);
end.

3. Найти максимальную зарегистрированную скорость автомобиля, а также проверить, была ли хотя бы одна скорость меньше 40 км/ч:

pascalCopy code
program Task3;

var
  count, speed, maxSpeed: integer;
  hasSpeedBelow40: boolean;

begin
  writeln('Введите количество автомобилей:');
  readln(count);
  
  maxSpeed := -1;  // Изначально устанавливаем максимальную скорость на минимально возможное значение
  hasSpeedBelow40 := false;
  
  writeln('Введите скорости автомобилей:');
  for i := 1 to count do
  begin
    readln(speed);
    
    if speed > maxSpeed then
      maxSpeed := speed;
    
    if speed < 40 then
      hasSpeedBelow40 := true;
  end;
  
  writeln('Максимальная зарегистрированная скорость: ', maxSpeed);
  
  if hasSpeedBelow40 then
    writeln('ДА')
  else
    writeln('НЕТ');
end.

Вы можете скопировать и вставить каждое из этих решений в среду программирования для Pascal (например, Free Pascal) и выполнить их.