Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число − минимальное число, оканчивающееся на 6. паскаль . с while

Answer 1

Відповідь: Это то? Я не проходила эту программу в учебе, но попытаюсь тебе помочь. Взяла с сайта https://www.cyberforum.ru/.

#include<conio.h>

#include<stdio.h>

main()

{

int min=0,how,k=0,number,min2=0,f=0,pr=0;

printf("how many:");scanf("%d",&how);

if(how<=1000)

{ k=how;

   while(k){

       k-=1;

           

       printf("number:");scanf("%d",&number);

       if(((number%10)==6)&&(number<=30000)){

               if(f==0){min2=number;f=1;min=pr=number;}

               else min=number;

                  if(min2>=min)pr=min;

            min2=min;

                                                                       }              

              }

   

}

printf("min=%d",pr);

getch();

}

Answer 2

Я могу помочь вам с написанием программы на Паскале с использованием цикла while. Вот один из возможных вариантов решения вашей задачи:

var
  n, x, min: integer;
begin
  readln(n); // считываем количество чисел в последовательности
  min := 30001; // задаем начальное значение для минимального числа, оканчивающегося на 6
  while n > 0 do // пока не обработаем все числа в последовательности
  begin
    readln(x); // считываем очередное число
    if (x mod 10 = 6) and (x < min) then // если оно оканчивается на 6 и меньше текущего минимума
      min := x; // обновляем минимум
    n := n - 1; // уменьшаем счетчик чисел
  end;
  writeln(min); // выводим минимальное число, оканчивающееся на 6
end.

Надеюсь, это было полезно. Если у вас есть еще вопросы по программированию, я готов ответить на них.

Answer 3

Программа на языке Pascal, использующая цикл while, которая определяет минимальное число, оканчивающееся на 6 в последовательности натуральных чисел:

program MinNumberEndingWith6;
var
  n, number, minNumber: integer;
begin
  minNumber := 30000; // устанавливаем начальное значение minNumber как максимально возможное число
  writeln('Введите количество чисел в последовательности:');
  readln(n);
  writeln('Введите числа:');
  while n > 0 do
  begin
    readln(number);
    if (number mod 10 = 6) and (number < minNumber) then // проверяем, оканчивается ли число на 6 и является ли оно новым минимальным числом
    begin
      minNumber := number; // если условие выполняется, обновляем значение minNumber
    end;
    n := n - 1;
  end;
  writeln('Минимальное число, оканчивающееся на 6: ', minNumber);
end.

Эта программа сначала запрашивает количество чисел в последовательности, затем просит ввести сами числа. После этого она проверяет каждое число на окончание на 6 и сравнивает его с текущим минимальным числом, обновляя его при необходимости. В конце программа выводит минимальное число, оканчивающееся на 6.