Вопрос по информатике:
С клавиатуры вводится два трехзначных числа. Возвести первое число в квадрат, а из второго извлечь корень, если хотя бы у одного из чисел, средняя цифра четная. В противном случае из первого извлечь корень, а второе возвести в квадрат. Вывести на экран измененные числа.
- 23.05.2018 11:45
- Информатика
- remove_red_eye 15685
- thumb_up 44
Ответы и объяснения 2
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.
- 24.05.2018 19:32
- thumb_up 26
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
- 25.05.2018 18:27
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.