Question

Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3
до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте пожалуйста программу?)))

Answer 1

Pascal

var   
a,s,d,e : integer;  
begin 
readln (a);   

s := a div 100; //Узнаем цифру сотен 
d := (a div 10) - (a div 100) * 10; //узнаем цифру десятков 
e := a mod 10; //узнаем цифру единиц
   
case s of   
8,9 : a := a * d;   
3..5 : a := s * 10 + d;     
else     
a := a - s;     
end;     
writeln (a); 
end.

Answer 2

спасибо большое)