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

DashaL109 DashaL109    2   29.06.2019 19:40    0

Ответы
ав003 ав003  23.07.2020 16:59
Var a: integer;    
begin  
readln (a);   
writeln (sqr((a mod 1000) div 100)); 
end.
ПОКАЗАТЬ ОТВЕТЫ
damirpro damirpro  23.07.2020 16:59
 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика