Question

Составьте программу вычисления первой цифры 3-ех значного числа . Если цифра больше 5 , то умножтье числа на 1 цифру

Answer 1

var

 num, firstDidit: integer;

begin

 read(num);

 firstDidit := num mod 1000 div 100;

 if (firstDidit > 5) then  

 begin

   firstDidit := firstDidit * firstDidit;

   num := num * firstDidit;

 end;

 write(num, ' ', firstDidit);

end.