даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. Если хотя бы одно из чи
5-9 класс
|
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
Уже писал, но попал в баг(
Так вот. В паскале это будет так:
1)var a,b,c:integer;
begin
readln(a,b);
if a div 2 =0 then c:=(a+b)*(a+b)*(a+b);
else c:=a*a*a+b*b*b;
writeln(c);
end.
2)var a,b,c:integer;
d:real;
begin
readln(a,b,c);
if (a<0) or (b<0) or (c<0) then d:=abs(a+b+c)
else d:=sqrt(a+b+c);
writeln(d:0:2);
end.
3)var a,b,c:integer;
begin
readln(a,b,c);
if (a*b*c<0) then begin a:=a*a; b:=b*b; c:=c*c; end
else begin a:=abs(a); b:=abs(b); c:=abs(c); end;
writeln( a, ' ', b, ' ', c);
end.
Вот так вот.
Другие вопросы из категории
Читайте также
ДВА РАЗА
ЗА ПЕРВОЕ ЧИСЛО МОЖНО ВЗЯТЬ 3,ЗА ВТОРОЕ 4
второго, "равно" — если числа равны, "меньше" — если первое число меньше второго. Сами числа выводить не нужно.
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.