Question

№2. Найти минимальное из введенных трёхзначных чисел. Программа получает на вход сначала количество чисел, затем сами числа (не большие 1000). Программа выводит на экран одно число: наименьшее число из введённых. (подсказка: переменной min присвоить значение 1000) №3. Вывести на экран таблицу умножения на А. Пользователь вводит число А, программа выводит на экран произведение числа А на все числа от 1 до 10 в виде5*1 = 55*2=10…НА ПАСКАЛЕ!!! Пожалуйста, до субботы, 2 мая. С циклом FOR

Answer 1

Ответ:

program qq;

var a, b, c, t: Integer;

begin

 Writeln('пиши 3 числа: '); ReadLn(a,b,c);

 if b<a then begin t:=a; a:=b; b:=t; end;

 if c<b then begin t:=b; b:=c; c:=t; end;

 if b<a then begin t:=a; a:=b; b:=t; end;

 WriteLn('min: ',a);

end.

2)

program qq;

var a, b, c, t: Integer;  

begin

write('веди число: ');

readln(a);

for c:= 1 to 10 do

begin

  b:= a * c;

  writeln(a, ' * ', c, ' = ', b);

end;

end.

Answer 2

Конечно, я помогу вам написать программы на языке Pascal согласно вашим требованиям. Вот две программы, выполняющие задачи №2 и №3:

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

pascalCopy code
program MinThreeDigitNumber;

var
  count, num, min: integer;
  i: integer;

begin
  min := 1000;
  
  write('Введите количество чисел: ');
  readln(count);
  
  for i := 1 to count do
  begin
    write('Введите число: ');
    readln(num);
    
    if (num >= 100) and (num <= 999) then
    begin
      if num < min then
        min := num;
    end
    else
      writeln('Число не является трёхзначным.');
  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.

Скопируйте каждую из программ и вставьте в среду программирования на Pascal (например, Free Pascal), затем скомпилируйте и запустите программы. Программа №2 запрашивает количество чисел и сами числа, а затем выводит наименьшее трёхзначное число. Программа №3 запрашивает число А и выводит таблицу умножения для этого числа от 1 до 10.