4 года назад

F(x) =x²-3x+9 если x≤3 = (1)/(x²+6) если x>3 Решите функцию в программе c++

Знания

Информатика

1 ответ:

Нюрыч [21]4 года назад

0 0

Ответ:

int func(const int X) {

if (X <= 3) {

return (X * X - 3 * X + 9);

}

else if (X > 3) {

return 1 / (double)(X * X + 6);

}

Объяснение:

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

Задача на Паскале Вводится последовательность натуральных чисел. Ноль – признак конца. Подсчитайте, сколько раз в этой последова

sgamer1985

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
 Read(n);
 if n<>0 then begin
 if n mod 7 = 0 then begin
 if n>nmax then begin k:=1; nmax:=n end
 else
 if n=nmax then Inc(k)
 end
 end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.

Тестовое решение:
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)

0 0

3 года назад

Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов

MSKarmadon

Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.

0 0

4 года назад

Помогите, пожалуйста, с информатикой!!Нужно написать программу Срочно нужно!

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadReal2('Введите a и b через пробел:');
var y:=1/a+1/b;
Writeln('y=',y)
end.

Пример
Введите a и b через пробел: 3.8 7
y=0.406015037593985

0 0

3 года назад

Прочитать ещё 2 ответа

Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран элементов массива кратные 3.

mouyter [50]

Program p1;
var i:integer;
 a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
 writeln('Введите ',i,' число: ');
 read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
end.

0 0

3 года назад

Скорость передачи данных по некоторому каналу связи равна 256000 бит/с. Передача файла через это соединение заняла 1,5 мин. Опре

azizbay [14]

8бит =1байту
256000/8=32000байт
3200*90=288000байта
288000/1024=2812.5Кбайт

0 0

4 года назад