Const
n = 5;
var
arr: array [1..n] of integer;
i, N1, sum: integer;
begin
write('N = ');
readln(N1);
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
i := 1;
sum := 0;
while (sum <= N1) and (i <= n) do
begin
sum := sum + arr[i];
i := i + 1;
end;
if sum > N1 then
writeln(sum)
else
writeln('Summa not grether then N');
end.
Алфавит системы счисления будет иметь вид
0 1 2 3 4 5 6 7 8 9 A B C D E
следующие 30 чисел
10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E
Ответ:
Объяснение:
Можно воспользоваться следующим приемом.
1)
В Excel составляем таблицу истинности. Выделим в ней те строки, в которых F=0 (F=ЛОЖЬ) (Рис. 1)
2)
Сравним нашу таблицу с приведенной в задаче. (Рис.2)
Пишем ответ:
Y Z W X