Помогите пожалуйста этим.паскаль.вывести на экран квадрат средней цифры пятизначного числа.

Помогите пожалуйста этим.
паскаль.
вывести на экран квадрат средней числа пятизначного числа.

Задать свой вопрос
2 ответа
Var a: integer;    
begin  
readln (a);   
writeln (sqr((a mod 1000) div 100)); 
end.
 var    
a,b,i : integer;    
begin 
readln (a);   
for i := 1 to 2 do   
a := a div 10; 
b := sqr(a mod 10); 
writeln (b); 
end.
Vadim
Зачем куча излишних операций?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт