1. распечатать в "столбик" таблицу умножения на число n(значение n ввести с клавиатуры; 1<=n<=9) 2. дано натуральное число n. Найти сумму n^2+(n+1)^2+...+(2n)^2 все задачи решить на паскале, помогите пожалуйста
1) var a,b:integer; beginwriteln('введите число'); read(a); for b:=1 to 9 do begin writeln(a,'*',b,'=',a*b);end; end. 2) var a,b,c:integer; beginwriteln('введите число'); read(a); c:=0; for a:=a to (a*2) do begin c:=sqr(a)+c; end; writeln(c); end.
Answers & Comments
Verified answer
1)var a,b:integer;
beginwriteln('введите число');
read(a);
for b:=1 to 9 do
begin
writeln(a,'*',b,'=',a*b);end;
end.
2)
var a,b,c:integer;
beginwriteln('введите число');
read(a);
c:=0;
for a:=a to (a*2) do
begin
c:=sqr(a)+c;
end;
writeln(c);
end.