Предмет: Информатика, автор: luda96peredelskaya

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

Ответы

Автор ответа: cccc1808
0
 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.

archery: Зачем куча лишних операций?
Автор ответа: archery
0
var a: integer;    
begin  
readln (a);   
writeln (sqr((a mod 1000) div 100)); 
end.
Похожие вопросы
Предмет: Русский язык, автор: sungatsultan
Предмет: Английский язык, автор: illyuziya14p0lg6b
Помогите с английским, пожалуйста.
Translate into English using the right preposition: for/of/in/to/with/at/by.
1. Она обвиняла его в отмене поездки на Бали.
2. Поезд прибывает в 7.30 на Казанский вокзал, поэтому нам необходимо прибыть на 10 минут раньше.
3. Я прошу прощения у Вас за мою задержку. Пробки сегодня ужасные!
4. Я злюсь на Джона за то, что он такой безответственный. В это просто невозможно поверить!
5. Его обвиняют в воровстве, необходимо провести расследование.
6. Он верит в меня, я не могу его подвести.
7. Она гениальна в отделе продаж. Необходимо брать ее на эту должность.
8. Я не была осведомлена в этом вопросе. Жду ваши доклады к Четвергу.
9. Я боюсь, я не справлюсь с данными обязанностями.
10. Он абсолютно не общается с коллегами. Я не знаю, как он планирует здесь работать.
11. Мне стыдно за то, что я не приготовила доклад.
12. Я была изумлена тем, как Мария общалась с администрацией.
Предмет: Математика, автор: shukuro95