Traffic (трафик) – в переводе с английского означает уличное движение. В среде интернет маркетинга трафик – это поток посетителей на сайт, или простыми словами посещаемость. Так же трафик– это объем данных в килобайтах, который проходит через сервер за определенный отрезок времени.
Begin
var ar := readarrinteger(readinteger('Введите n:'));
var k := readinteger('Введите k:');
ar.Where(x -> x mod k = 0).print;
end.
Переделал программу с паскаля на С++
#include <iostream>
#include <cstdlib>
#include <time.h>
using namespace std;
int main(){
srand(time(0));
system("chcp 1251 > nul");
int q,x,y,z,a,b,c,d,e;
double w;
cout << "Введите x: ";
cin >> x;
cout << "Введите y: ";
cin >> y;
cout << "Введите z: ";
cin >> z;
a = x*y*z;
b = 3*z*x;
c = 2*(x+y+z);
d = max(a,b);
e = max(b,c);
q = max(e,d);
cout << "Максимум: " << q<< endl;
w = min((3*x*y*z),(q/2));
cout << "Максимум: " << w << endl;
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
R(0) = 0
R(1) = 0
R(2) = 1
R(3) = R(2) + R(0) + R(2) = 1 + 0 + 1 = 2
R(4) = R(3) + R(1) = 2 + 0 = 2
R(5) = R(4) + R(2) + R(3) = 2 + 1 + 2 = 5
R(6) = R(5) + R(3) = 5 + 2 = 7
R(7) = R(6) + R(4) + R(4) = 7 + 2 + 2 = 11
R(8) = R(7) + R(5) = 11 + 5 = 16
R(9) = R(8) + R(6) + R(5) = 16 + 7 + 5 = 28
<span>R(10) = R(9) + R(7) = 28 + 11 = 39</span>