Таблица истинности приложена
Ответ:
Устройства ввода информации
Объяснение:
Var
X:integer;
Begin
WriteLn('X Sin(X) Cos(X)');
For X:= 0 to 10 do
WriteLn((X/10):0:4,' ',Sin(X/10):0:4,' ',Cos(X/10):0:4);
End.
знаю только первых два: 1024*17=17408
1024*1024*2=2097152
Program pas;
var
a:array[1..30] of integer;
i, k: integer;
s: real;
begin
s:=0;
k:=0;
for i:=1 to 30 do
readln(a[i]);
for i:=1 to 30 do
begin
if (not(a[i]mod 2=0)) then
s:=s+a[i];
inc(k);
end;
s:=s/k;
write(s:4:0);
end.