Question

Склавиатуры вводится два трехзначных числа. возвести первое число в квадрат, а из второго извлечь корень, если хотя бы у одного из чисел, средняя цифра четная. в противном случае из первого извлечь корень, а второе возвести в квадрат. вывести на экран измененные числа.

Answer 1

Var a,b:integer; 
a1,b1:real;
begin
write ('a= '); readln (a);
write ('b= '); readln (b);
if (a div 10 mod 10 mod 2 = 0) or (b div 10 mod 10 mod 2 = 0) then 
 begin 
a1:=sqr(a);
b1:-sqrt(b);
end;
else 
begin 
 a1:=sqrt(a);
b1:=sqr(b);
end; 
write (a1,' ',b1);
end.

Answer 2

Var a,b: integer;
begin
  write('a b через пробел: ');
  readln(a,b);
  if (((a div 10) mod 10) mod 2 = 0) or
     (((b div 10) mod 10) mod 2 =0) then 
  begin
    a:=a*a; b:=floor(sqrt(b));
  end
  else
  begin
    a:=floor(sqrt(a));
    b:=b*b;
  end;
  writeln('a = ',a,'  b = ',b);
end.

a b через пробел: 13 54
a = 3  b = 2916

a b через пробел: 24 16
a = 576  b = 4