1. распечатать в "столбик" таблицу умножения на число n(значение n ввести с клавиатуры; 1 меньше =n меньше =9) 2. дано натуральное число n. Найти сумму n^2+(n+1)^2+...+(2n)^2 все задачи решить на паскале, помогите пожалуйста
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.
Не нашли ответ?
Похожие вопросы