Question

Помогите пожалуйста с задачами по информатике.

Answer 1

1.
var a,b,i: integer;beginreadln(a,b);for i:=1 to b do writeln(a,' ');readln;end.
2.
var a,b,i,s: integer;beginreadln(a,b);for i:=a to b dos:=i*i+s;writeln(s);readln;end.3.
var n,i,s: integer;begins:=1;readln(n);for i:=2 to n dos:=s*i;writeln(s);readln;end.