Решение в фото. Ответ:11 единиц
Program fantscrin;
const n = 17;
Var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i],' ');
s:=0;
for i:=1 to n do
if(a[i] > 5) then s:=s+a[i];
writeln('');
write('Сумма: ',s);
End.
Ответ:
1001101001 = 1*2^9+0+0+1*2^6+1*2^5+0+1*2^3+0+0+1*2^0 = 512+0+0+64+32+0+8+0+0+1 = 512+64+32+8+1 = 617
Объяснение:
1.подмножество;2.множество;3.Пересечение;4.схема;5.объединение;6.эйлер;7.отношения;8.объект.
Program n1;
Uses CRT;
Var k,i: integer;
begin
k:=1;
For i:=1 to 10 do
k:=k*i;
writeln(k);
end.
блок-схема вложена.
Записи в блоках (по порядку сверху вниз):
- начало
- K:=1;
i:=1 to n
k:=k*1
k
ну и снизу разумеется конец программы в овале, забыла дорисовать.