Developing.ru

Так-с =)
нужно написать программу для того что бы она считывала цифры с определенного числа по другое определенное число(их сумму каждого члена) + возводила каждый член в квадрат.

1) Тема перемещена и переименована.
2) Потрудитесь предоставить условие задачи в его исходной формулировке, данной преподавателем. Иначе я эту тему просто удалю. В такой постановке у задачи десятки решений, которые, как потом окажется, неверны.

Как бы вам сказать то...
1) Запускаешь программу. Написанно введите число: n1, потом введите второе число: n2.
2) Программа возводит в квадрат каждую цифру с n1 по n2, и складывает между собой.
Вывод результата...
все вроде.
Например:
n1=2
n2=6
4+9+16+25+36=90
примерно так...

[syntax=pascal]
uses crt;
var n1,n2,sum:real;
i:byte;
begin
repeat
clrscr;
write('Vedite chislo: ');
readln(n1);
write('Vvedite vtoroe chislo: ');
readln(n2);
until n1<n2;
sum:=0;
while n1<=n2 do
begin
sum:=sum+sqr(n1);
n1:=n1+1;
end;
writeln('Summa: ',sum:6:2);
readln;
end.
[/syntax]