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