Помогите решить задачу на языке программирования Pascal. Дано натуральное числа К и n. Подсчитать квадрат суммы К первых цифр числа n.

1

Ответы и объяснения

Лучший Ответ!
2013-02-25T17:01:04+00:00

Вот, если правильно понял условие: 

 

var
K,i,j,r,sum:integer;
n,m:string;
begin
Writeln('Введите кол-во цифр K:');
readln(K);
Writeln('Введите число n:');
readln(n);
for i:=1 to K do begin
m:=copy(n,i,1);
val(m,j,r);
sum:=sum+j;
end;
sum:=sum*sum;
Writeln('Квадрат суммы первых K чисел равен: ', sum);
end.