Если речь идет об эксель, то минимальной является ЯЧЕЙКА.
ячейки объединяются в столбцы и строки. они в свою очередь в таблицу.
#include <iostream>
#include <vector>
#include <iterator>
#include <algorithm>
#include <cmath>
int main()
{
int
sum(0), count(0),
A, B;
std::cin >> A >> B;
std::vector<int> vec;
std::copy(std::istream_iterator<int>(std::cin), std::istream_iterator<int>(), std::back_inserter(vec));
for(auto it = vec.begin(); it != vec.end(); it++)
{
if(A < *it && B > *it && (std::distance(vec.begin(), it) % 4) == 0)
sum += pow(*it, 2);
}
std::cout << "Количество нулей: " << std::count(vec.begin(), vec.end(), 0) << std::endl;
std::cout << "Сумма квадратов чисел: " << sum << std::endl;
}
Uses
graphABC;
const
W = 800; H = 500;
function F(x: real): real;
begin
F := x * x - x;
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real;
i: byte;
s: string;
begin
SetWindowSize(W, H);
xLeft := 50;
yLeft := 50;
xRight := W - 50;
yRight := H - 50;
a := -2; b := 5; dx := 0.5;
fmin := -2; fmax := 5; dy := 0.5;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := trunc(abs(a) * mx) + xLeft;
y0 := yRight - trunc(abs(fmin) * my);
line(xLeft, y0, xRight + 10, y0);
line(x0, yLeft - 10, x0, yRight);
SetFontSize(12);
SetFontColor(clBlue);
TextOut(xRight + 20, y0 - 15, 'X');
TextOut(x0 - 10, yLeft - 30, 'Y');
SetFontSize(7);
SetFontColor(clRed);
n := round((b - a) / dx) + 1;
for i := 1 to n do
begin
num := a + (i - 1) * dx;
x := xLeft + trunc(mx * (num - a));
Line(x, y0 - 3, x, y0 + 3);
str(Num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x - TextWidth(s) div 2, y0 + 10, s)
end;
n := round((fmax - fmin) / dy) + 1;
for i := 1 to n do
begin
num := fMin + (i - 1) * dy;
y := yRight - trunc(my * (num - fmin));
Line(x0 - 3, y, x0 + 3, y);
str(num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x0 + 7, y - TextHeight(s) div 2, s)
end;
TextOut(x0 - 10, y0 + 10, '0');
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
if ((x1 >= 1) and (x1 <= 2.5)) then
begin
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);
end;
x1 := x1 + 0.001
end
end.
Программа:
1)
var i: integer;
begin
for i:=1 to 1000 div (3*5) do
write(i*3*5,' ');
end.
Результат:
15 30 45 60 75 90 105 120 135 150 165 180 195 210 225 240 255 270 285 300 315 330 345 360 375 390 405 420 435 450 465 480 495 510 525 540 555 570 585 600 615 630 645 660 675 690 705 720 735 750 765 780 795 810 825 840 855 870 885 900 915 930 945 960 975 990
Программа:
2)
var n,i,j: integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 10 do write(j,' ');
writeln;
end;
end.
Пример:
5
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10