Question

Число от 0 до 200 задается случайным образом. Если в числе одна цифра, то возвести в квадрат, если две цифры, то извлечь квадратный корень, если три цифры, то найти сумму его цифр. включая операции див и мод, а также стандартную функцию рандом
ПОМОГИТЕ ПОЖАЛУЙСТА!

Answer 1

var a,b,k: integer;  

begin

a:=random(201);

writeln ('a = ',a);

b:=a;

repeat

k:=k+1;

b:=b div 10

until b=0;

if k=1 then writeln ('В числе ',a,' одна цифра. Его квадрат равен ',a*a);

if k=2 then writeln ('В числе ',a,' две цифры. Квадратный корень из него равен ',sqrt(a):0:3);

if k=3 then writeln ('В числе ',a,' три цифры. Сумма его цифр равна ',a mod 10 + a div 100 + a div 10 mod 10);

end.