С клавиатуры вводится два трехзначных числа. Возвести первое число в квадрат, а из второго извлечь корень, если хотя бы у одного из чисел, средняя цифра четная. В противном случае из первого извлечь корень, а второе возвести в квадрат. Вывести на экран измененные числа.
Ответы
Ответ дал:
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.
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.
Ответ дал:
3
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
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
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад