После program должна быть латинская буква, насколько я помню. С цифры нельзя начинать
Если что, напиши
(Просто я обычно эту строчку вообще не пишу в программах)
Анимация наследует те же способы создание изображений, как и графика, ежжи:
-Векторная графика
-Растровая графика
-Фрактальная графика
<span>-Трёхмерная графика</span>
#include <iostream>
#include <vector>
#include <algorithm>
using namespace std;
int main()
{
long long n, m, i, j, k;
cin >> n >> m;
vector < long long > plot, mesk;
for (i = 0; i < n; i++)
for (j = 0; j < m; j++)
{
long long x;
cin >> x;
plot.push_back(x);
}
cin >> k;
for (i = 0; i < k; i++)
{
long long x;
cin >> x;
mesk.push_back(x);
}
sort(plot.begin(), plot.end());
sort(mesk.begin(), mesk.end());
k = 0;
i = plot.size() - 1;
j = mesk.size() - 1;
while (i * j > 0)
{
if (plot[i] >= mesk[j])
{
k++;
i--;
j--;
}
else
j--;
}
cout << k << endl;
}
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.
Pascal.
finction Summ(x,y:integer):integer;
begin
result:=x+y;
end;
procedure Summ(x,y:integer; var result:integer);
begin
result:=x+y;
end;
Квадратное уравнение - сам. Главное, не забудь при вычислении дискриминанта, что квадратный корень нельзя извлекать из отрицательного числа. Во всяком случае в школе.