Question

№2. Найти минимальное из введенных трёхзначных чисел. Программа получает на вход сначала количество чисел, затем сами числа (не большие 1000). Программа выводит на экран одно число: наименьшее число из введённых. (подсказка: переменной min присвоить значение 1000)

№3. Вывести на экран таблицу умножения на А. Пользователь вводит число А, программа выводит на экран произведение числа А на все числа от 1 до 10 в виде
5*1 = 5
5*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.