0 / 0 / 0
Регистрация: 24.10.2013
Сообщений: 7
1

Условие: Если оба числа отрицательные, то заменить каждое из них его квадратом, иначе положительные из них увеличить в 2 раза.

24.10.2013, 21:50. Показов 6783. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны действительные числа A и В, Если они оба отрицательные, то заменить каждое из них его квадратом, иначе положительные из них увеличить в 2 раза.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2013, 21:50
Ответы с готовыми решениями:

Если оба числа отрицательные, то заменить каждое из них его квадратом
Даны действительные числа A и В, Если они оба отрицательные, то заменить каждое из них его...

Даны два целых числа, если числа не равны, то заменить каждое из них большим, а иначе заменить оба числа нулям
Даны два целых числа. Если числа не равны, то заменить каждое из них большим, а иначе заменить оба...

Заданы четыре переменные. Все отрицательные из них заменить абсолютными значениями и увеличить в 2 раза
Заданы четыре переменные. Все отрицательные из них заменить абсолютными значениями и увеличить в 2...

Если a<=b<=c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них
Приветствую. Помогите пожалуйста решить задачку. Даны целые числа a,b и с. Если a&lt;=b&lt;=c, то все...

2
14 / 5 / 6
Регистрация: 14.07.2013
Сообщений: 57
24.10.2013, 22:00 2
Лучший ответ Сообщение было отмечено sapin как решение

Решение

Цитата Сообщение от sapin Посмотреть сообщение
Даны действительные числа A и В, Если они оба отрицательные, то заменить каждое из них его квадратом, иначе положительные из них увеличить в 2 раза.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program AB;
uses crt;
var A,B:integer;
BEGIN
     ClrScr;
     Writeln('Введите A и B');
     Readln(A,B);
     If (A<0) and (B<0) then
     begin
     A:=sqr(A);
     B:=sqr(B);
     end
     else if (A>0) and (B<0) then A:=A * 2
     else if (B>0) and (A<0) then B:=B * 2
     else if (A>0) and (B>0) then
     begin
     A:=A * 2;
     B:= B * 2;
     end;
     Writeln(' A = ',A,' B = ',B);
     ReadLn;
END.
1
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
24.10.2013, 22:09 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program bla_bla_bla;
uses crt;
var a, b:real;
begin
writeln('Ââåäèòå À');
readln(a);
writeln('Ââåäèòå Â');
readln(b);
if (a<0) and (b<0) then begin
   a:=a*a;
   b:=b*b end
   else
   if  (a>0) and(b<0) then a:=a*2
   else
   if (b>0) and(a<0) then b:=b*2;
   Writeln('A= ',a,' B= ',b);
end.
1
24.10.2013, 22:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2013, 22:09
Помогаю со студенческими работами здесь

Если числа не равны, то заменить каждое из них большим
УСЛОВНЫЙ ОПЕРАТОР 16. Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним...

Если сумма цифр введенного трехзначного числа кратна трем - увеличить его на 1, иначе уменьшить в 2 раза
Задача: Если сумма цифр введенного трехзначного числа Н кратна трем, то увеличить само число на...

Даны действительные числа a, b, c, d. Если a<=b<=c<=d, то каждое заменить наибольшим из них
Помогите срочно! Хотя бы представьте часть кода где: заменить наибольшим из них Даны...

Даны действительные числа. Если A<=B<=C<=D, то каждое число заменить наибольшим из них
Даны действительные числа A,B,C,D. Если A&lt;=B&lt;=C&lt;=D, то каждое число заменить наибольшим из них;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru