Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
Ответ:
Б) 7.
Объяснение:
Смотрим на последние разряды.
4 + 3 = 7, а там 0. Следовательно, было 10, единица ушла в следующих разряд. Чтобы вместо 7 получилось 10, основание системы счисления должно быть меньше на 10 - 7 = 3 (мы же все считали в привычной десятиричной системе). От 10 отнимаем 3 и будет 7. Это и есть ответ. И не нужно ничего больше никуда переводить.
Для примера. Если бы было написано в последних разрядах 4 и 2, а результат был бы 1, мы бы рассуждали так.
4 + 2 = 6, а написано 1, т.е. это было 11. 11 - 6 = 5 (разница).
10 - 5 = 5. Значит, система по основанию 5. Быстро и легко.
9>3+5
да
9<3
нет
А=9+3+5
А=-17
С)-17
Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
я прикрепил файл.если что то не понятно говорите