Question

Помогите пожалуйста!
Срочно нужно!!!

Answer 1

1. в
2. а
3. а) 5-3<4 - true
    б) ((x=1) - false  or (x>0) - false) - false 
4. n=(20-5)/3+1=6

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

5.
begin
var (a,b):=ReadInteger2('a,b->');
Println('n=',(cos(a)+cos(b))/(a+b));
end.

6.
begin 
var a := 1; 
for var i := 1 to readinteger('n->') do 
begin   
Println($'a[{i}]={a}');   
a := 2 * a + 1; 
end;
end.