Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
N=32 N = 2 (в степени i) i = 5
iс=i * K
iс = 5 * 256 = 1280 бит :8 = 160 байт на одном носителе
iс= 256 * 512 * 5=655 360 бит :8 = 81 920 байт :1024 = 80 Кбайт на всем
FORTRAN 90
На паскаль переводится очень легко
program for_znanija
implicit none
real :: a,b,dx,x,f
integer :: k
print *,'Введите левую границу'
read *, a
print *,'Введите правую границу'
read *, b
print *, 'Введите шаг'
read *, dx
x=a
k=0
do while (x<=b)
print '(a,f5.2,a,f8.4)','При x=',x, ' значение функции f=',f
f=tan(x)
x=x+dx
enddo
end
На скриншоте тоже моя программа, но написана ранее, поэтому там есть небольшие изменения.
Справа проверка на работоспособность. Функция tg(x).
A1
(X<15)*((X>=3)->(X>=7))
Упростим:
(X<15)*( (X < 3) + (X >=7))
X < 15, подходят все варианты, убираем это условие
((X < 3) + (X >=7))
X < 3 нет
X >= 7 есть единственное(8)
ответ:4
А2
A+¬A*B
(A+¬A) * (A+B)
1 * (A + B)
A + B
Ответ: 2
А3
Анализируем первую строку таблицы:
Когда A, B, C одновременно равны нулю, то функция(D) равна "1".
Проверим:
Вариант 1)A&B&¬C = 0*0*1 = 1 - ложь, ответ не подходит
Вариант 2)A+B+C = 0+0+0 = 1 - ложь
Вариант 3)¬A*¬B*¬C = 1*1*1 = 1 - правда
Вариант 4) ¬A+B+C = 1 + 0 +0 = 1 - правда
Подставим в подходящие функции другие элементы таблицы
Вариант 4, строка 2: 1+0+1 = 0 - Ложь.
Рассматривать дальше не имеет смысла, т.к. остался 1 вариант
Ответ:3