Сначала приведены примеры решения с формулировкой задач, на основе примеров выполнить задания указанные ниже Задача 1. Из N целых чисел найти минимальное значение. VAR MI, X: INTEGER; I,N: INTEGER ; BEGIN WriteLn ('Введите количество значений'); ReadLn (n); WriteLn('Введите первое значение'); ReadLn (mi); FOR I:=2 TO N DO Begin WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x); IF X0) Then Begin MI:=X; FL1:=1; End; IF (X<0) AND (X>MA) Then MA:=X; IF (X>0) AND (X
Человек. Тут все просто. :)
Объяснение:
"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=8)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=8-2=6
ответ: В=6
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=8-2=6
ответ: А=6
ответ: А=6; В=6Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".
Значит повторяем:
"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=6)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=6-6=0
ответ: В=0
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=6-2=4
ответ: А=4
ответ: А=4; В=0"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=4)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=4-0=4
ответ: В=4
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=4-2=2
ответ: А=2
ответ: А=2; В=4"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=2)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=2-0=2
ответ: В=2
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=2-2=0
ответ: А=0
ответ: А=0; В=2"А" меньше 0?
ответ: нет, она на равне с 0. (Т.е.: А=0)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=0-0=0
ответ: В=0
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=0-2=-2
ответ: А=-2
ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!Да всё просто.
1 вариант реализации:
Запиши число как строку. Строка = массив. Ты можешь перемножать элементы массива, не проблема)
2 вариант реализации:
Если по каким-то причинам использование строк запрещено, то играемся с остатком от деления на 10 и делением на 10 без остатка.
К примеру как нам засунуть 3 циферки из числа в массив из трех элементов?
Ввели число x = 123
mas[2]=Остаток от деления на 10(x) = 3
x=x делим на 10 без остатка = 12
mas[1]=Остаток от деления на 10(x) = 2
mas[0]=делим на 10 без остатка = 1
//а теперь выведем всё по заданию (сумму цифр числа, пробел, 132)
summ=mas[0]+mas[1]+mas[2];
println(summ,' ', mas[0],mas[2],mas[1])
end.