Дано четырехзначное число.отыскать сумму квадратов второй и третьей цифры

Дано четырехзначное число.найти сумму квадратов 2-ой и третьей числа

Задать свой вопрос
1 ответ
Var n,n1,n2,n3,n4,sum:integer;
Begin 
readln(n);
     n1:=n div 1000;  
         n2:=n div 100;  
         n2:=n2 mod 10;    
              n3:=n div 10;    
              n3:=n3 mod 10;      
                   n4:=n mod 10;        
n2:=n2*n2;  
n3:=n3*n3;  
  sum:=sum+n2+n3;  
    writeln('sum=',sum);

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт