Задать вопрос!

Задать вопрос!

Все категории

4 года назад

7

Дано целое число если оно является положительным то вычесть из него 8.

в противном случае прибавить к нему 6.вывести полученное число .

Информатика

1 ответ:

akulaxxx4 года назад

0 0

Var a:integer;
begin
read(a);
if a>=0 then
write(a-8) else
write(a+6);
end.

Читайте также

Дано целое число. Возвести его в квадрат, если оно неотрицательно и в четвертую степень, если отрицательно. Разработать блок-сх

Дина Кузьмина

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.

0 0

4 года назад

К какому информационному процессу относится диалог

Олег Ефимов

Получение информации

0 0

4 года назад

Массив b [ 1..9 ] задан с помощью датчика случайных чисел. Найти произведение и кол- во отрицательных элементов.

bhgerdd [50]

Язык C:
m=0; //кол-во отриц. элементов
proizv=1; //произвед отриц элементов
for(i=0; i<9; i++)
{
if (b[i]<0)
{ m++;
proizv=proizv*b[i];
}
}

0 0

4 года назад

Помогите составить программу на языке паскаль: Вычислить значение выражения: f(x)=ctg 3x*log(2x+3)*4 при любых значениях х. Прош

polina0000

Первый вариант: если десятичный логарифм от (2x+3).

Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.

Второй вариант: если логарифм по основанию (2x+3) от 4.

Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.

0 0

4 года назад

Вывести на экран квадраты и кубы целых чисел от 1 до 8.Паскаль. Помогите пожалуйста,ничего не понимаю :(

Afina-wow [57]

Var
i:integer;
begin
for i:=1 to 8 do
if i mod 2 <>0 then
writeln('Число ',i,' Квадрат ',i*i,' Куб ',i*i*i);
<span>end.</span>

0 0

5 лет назад