Question

Помогите, пожалуйста!
Создать программу Паскаль возведение в квадрат чисел оканчивающихся на 5
пожалуйста!

Answer 1

Держи:

program abc;

var

a:int64;

Begin

readLn(a);

if (a mod 5 = 0) and (a mod 10 <> 0) then

Begin

a:= a*a;

writeLn(a);

End

else writeLn('Это число не оканчивается на 5');

End.