Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 0
Регистрация: 03.10.2013
Сообщений: 34
1

Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных случиях

06.10.2013, 18:48. Просмотров 907. Ответов 1
Метки нет (Все метки)

Даны два числа.Найти корень из суммы этих чисел, если они оба положительные,сумму квадратов, если отрицательны и разность в остальных случиях
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2013, 18:48
Ответы с готовыми решениями:

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

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

Если все числа положительны - найти их корни; если отрицательны - возвести каждое в квадрат, иначе найти сумму
Заданы три числа А, В, С. Если они все положительны, то найти их корни; если все отрицательны, то...

Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значен
Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его...

1
8 / 11 / 16
Регистрация: 30.09.2013
Сообщений: 89
06.10.2013, 21:38 2
Лучший ответ Сообщение было отмечено Vadim050596 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program abc;
var a,b,c,d,e,f:real;
begin
writeln('Vvedite 1 4islo');
readln(a);
writeln('Vvedite 2 4islo');
readln(b);
if (a>0) and (b>0) then
begin
f:=a+b;
c:=sqrt(f);
writeln('Koren iz summi raven',c:0:2);
readln;
end;
if (a>0) and (b<0) then
begin
d:=sqr(a+b);
writeln('summa kvadratov ravna',d:0:2);
readln;
end
else
begin
e:=a-b;
writeln('raznost ravna',e:0:2);
readln;
end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.10.2013, 21:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти сумму элементов в Q и X, если сумма < 100, то найти разность суммы Q - суммы X
Всем привет, сам изучаю с++, но соседу дали такое задание на Си, я написать не смог. Так что решил...

Ввести 2 числа. Если первое введенное число больше второго, то вычислить разность этих чисел, в противном случае –их сумму
Ввести 2 числа. Если первое введенное число больше второго, то вычислить разность этих чисел, в...

Вычислить произведение чисел, если они оба нечетные
Даны два вещественных числа. Вычислить их произведение, если они оба нечетные, в противном случае...

В списке есть вложенные списки,если все числа во вложенном списке положительные,то вывести сумму этих чисел
есть список ,в нём вложенные подсписки,если во вложенном подсписке все элементы положительные то...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.