Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
Правильный ответ 3)<span> (¬A ^ ¬B) ^ ¬C
</span>
Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598
Например, я и ........... пошли .............
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
float y,x,a;
cin>>x;
a=x*x+256/(x*x);
for(int i=7;i>=1;i--)
a=x*x+(pow(2,i))/a;
y=x/a;
cout<<"\n"<<y;
}