|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
03.12.2009, 12:41
|
|||
|
|||
помогите по паскалю
Дано число,подсчитать сумму квадратов его цифр!
например 252----2 в квадрате =4,5 в квадрате = 25, 2 в квадрате=4...сумма 4+25+4=33,помогите плиз( |
|
#2
03.12.2009, 12:44
|
||||
|
||||
|
Код:
var
a,b,i:integer;
s:string;
begin
b:=0;
a:=1000;
s:=IntToStr(a);
for i:=1 to Length(s) do
b:=b+sqr(StrToInt(s[i]));
end; |
|
#3
03.12.2009, 12:46
|
|||
|
|||
|
сбасибо большое!
 |
Линейный вид
