Const
handsfree = false;
var
a: array[1..100] of real;
i, n: integer;
sum, product, harmonic: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if abs(a[i]) <= 5 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
Пример таблицы (с 5 товарами) - в прилагаемом файле.
<span>если на C++, то вот процедуры:
если с помощью библиотеки graphics.h
x и y нужно передавать левого верхнего угла буквы
#include <graphics.h>
#include <stdio.h>
#include <conio.h>
int x=50,y=50;
void M(int x,int y)
{ // длина буквы 44, высота тоже 44
x+=50;
line(x,y,x,y+44);
line(x,y,x+22,y+44);
line(x+22,y+44,x+44,y);
line(x+22,y+44,x+44,y+44);
}
void I(int x,int y)
{ // длина буквы 22, высота тоже 44
x+=28;
line(x,y,x,y+44);
line(x,y+44,x+22,y);
line(x+22,y,x+22,y+44);
}
void R(int x,int y)
{ // длина буквы 22, высота тоже 44
x+=28;
line(x,y,x,y+44);
line(x,y,x+22,y);
line(x,y+22,x+22,y+22);
line(x+22,y,x+22,y+22);
}
main()
{
initwindow(800,600);
M(x,y); I(x,y); R(x,y);
x=50;y=100;
R(x,y); I(x,y); M(x,y);
x=50;y=150;
M(x,y); I(x,y); M(x,y);
getch();
closegraph();
}
P.S. я старался</span>
Var
a,b,n:integer;
begin
a:=2;
readln(n);
write(a,' ');
for b:=1 to n do
begin
a:=a*2;
write(a,' ');
end;
<span>end.</span>
Var
i, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.