Постройте таблицу учёта товаров в магазине, если известно:
наименование товара;
цена товара;
количество проданного товара;
количество непроданного товара.
Рассчитайте, на какую сумму продан товар и на какую сумму товар остался в магазине. Постройте диаграмму стоимости проданного товара.
program test;
uses crt;
const
t:boolean=false;
var
arr:array[1..20] of integer;
i:integer;
begin
randomize;
clrscr;
for i:=1 to 20 do
begin
arr[i]:=random(90)+10;
write(arr[i],' ');
end;
writeln;
for i:=1 to 20 do
if arr[i] mod 7 = 0 then
begin
write(i,' ');
t:=true;
end;
if t=false then
write('No elements');
end.
program raf105;
var
a,b: array of integer;
i,x: integer;
procedure Divide7(x:integer; arr:array of integer);
begin
arr[0]:= x div 1000000;
arr[1]:= (x div 100000) mod 10;
arr[2]:= (x div 10000) mod 10;
arr[3]:= (x div 1000) mod 10;
arr[4]:= (x div 100) mod 10;
arr[5]:= (x div 10) mod 10;
arr[6]:= x mod 10;
end;
begin
SetLength(a,7);
SetLength(b,7);
writeln('Добро в игру "Лотерея"!');
write('Введите семизначное число: ');
readln(x);
writeln;
Divide7(x,a);
x:= random(1000000,9999999);
Divide7(x,b);
write('Введённые числа: ');
for i:=0 to 6 do
write(a[i],' ');
writeln;
write('Сгенерированные числа: ');
for i:=0 to 6 do
write(b[i],' ');
end.
2 Вариант (без процедуры)program raf105;
var
a,b: array[1..7] of integer;
i,x: integer;
begin
writeln('Добро в игру "Лотерея"!');
write('Введите семизначное число: ');
readln(x);
writeln;
a[1]:= x div 1000000;
a[2]:= (x div 100000) mod 10;
a[3]:= (x div 10000) mod 10;
a[4]:= (x div 1000) mod 10;
a[5]:= (x div 100) mod 10;
a[6]:= (x div 10) mod 10;
a[7]:= x mod 10;
x:= random(1000000,9999999);
b[1]:= x div 1000000;
b[2]:= (x div 100000) mod 10;
b[3]:= (x div 10000) mod 10;
b[4]:= (x div 1000) mod 10;
b[5]:= (x div 100) mod 10;
b[6]:= (x div 10) mod 10;
write('Введённые числа: ');
for i:=1 to 7 do
write(a[i],' ');
writeln;
write('Сгенерированные числа: ');
for i:=1 to 7 do
write(b[i],' ');
end.
PascalABC 3.4.2