Помогите пожалуйста!! СРОЧНО! Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в
10-11 класс
|
четвёртую степень – отрицательные.
Нужно написать для Basic!
var a,b,c:integer;
begin
read(a,b,c);
if a<0
then a:=a*a*a*a
else a:=a*a;
if b<0
then b:=b*b*b*b
else b:=b*b;
if c<0
then c:=c*c*c*c
else c:=c*c;
write (a,' ',b,' ',c);
end.
Вроде так затестируй на паскале у меня нет но суть такова вроде должна работать
Другие вопросы из категории
P1 – скалярное произведение векторов A и B.
P2 – скалярное произведение векторов C и D.
Вычисление скалярного произведения векторов оформить подпрограммой.
Исходные данные: А=(-5.1, 2.7, 3.4, 6.2); В=(1.2, 3.4, 0, 2.5);
С=(2.7, 3.4, 2.5, 6.3, 7.8); D=(1.7, -1.3, 2.8, 0, 7.2);
Надо выполнить работу в экселе ЗАДАНИЕ №8 ТОЛЬКО!!!!!!
Читайте также
Даны 3 действительных числа. Возвести в квадрат и напечатать те из них, значения которых неотрицательны. Если таковых нет, то напечатать сообщение.
С++