Question

Пришлось перезадать вопрос. У меня проблемы с информатикой, программируем на паскале. задали два задания, впал в ступор. буду очень благодарен если будут объяснения решения. на языке паскаля, 8 кл. СРОЧНО. 3. Решить задачи с помощью цикла FOR. №2. Найти минимальное из введенных трёхзначных чисел. Программа получает на вход сначала количество чисел, затем сами числа (не большие 1000). Программа выводит на экран одно число: наименьшее число из введённых. (подсказка: переменной min присвоить значение 1000)№3. Вывести на экран таблицу умножения на А. Пользователь вводит число А, программа выводит на экран произведение числа А на все числа от 1 до 10 в виде 5*1 = 5 5*2=10…

Answer 1

Ответ:

var

i, n, count2, max2, count3, min3 : Integer;

begin

ReadLn(n);

count2:=0; max2:=0;

count3:=0; min3:=1000;

for i:=1 to n do

begin

Read(n);

if (n>9) and (n<100) then

begin

inc(count2);

if n>max2 then max2:=n;

end;

if (n>99) and (n<1000) then

begin

inc(count3);

if n<min3 then min3:=n;

end;

end;

if count2=count3 then

WriteLn(0)

else if count2>count3 then

WriteLn(max2)

else

WriteLn(min3);

end.

Объяснение:

Answer 2

Конечно, я помогу вам с решением этих задач на языке Паскаль.

Задача №2: Найти минимальное из введенных трёхзначных чисел.

pascalCopy code
program MinThreeDigitNumber;
var
    n, num, min: integer;
    i: integer;
begin
    min := 1000; // Инициализируем переменную min большим значением

    write('Введите количество чисел: ');
    readln(n);

    for i := 1 to n do
    begin
        write('Введите трёхзначное число: ');
        readln(num);

        if (num >= 100) and (num <= 999) and (num < min) then
            min := num;
    end;

    writeln('Минимальное трёхзначное число: ', min);
end.

Задача №3: Вывести на экран таблицу умножения на А.

pascalCopy code
program MultiplicationTable;
var
    A, i: integer;
begin
    write('Введите число A: ');
    readln(A);

    for i := 1 to 10 do
    begin
        writeln(A, ' * ', i, ' = ', A * i);
    end;
end.

Скопируйте код для каждой задачи в вашу среду программирования (например, в Turbo Pascal) и запустите программу. После запуска вы сможете вводить данные с клавиатуры и увидите результат на экране. Если у вас возникнут какие-либо вопросы, не стесняйтесь спрашивать.