Question

Помогите с Д /З по информатике...

Answer 1

2.а)10,б)20. 3. var a,b,s:real; begin readln(a,b); s:=(a+b)/2; writeln(s); end. 4.var x,y:integer; begin readln(x,y); if x>y then writeln(x,' больше') else writeln(y,' больше'); end. 5. var numb:integer; begin for numb:= 1 to 10 do writeln(numb); end.