название программы: Точность .ру
как будет работать: открываем сайт нам задают вопрос по типу цену какого товара вы хотите узнать или же впишите товар, вписываем название и нам выдают точную цену на товар (чтобы его продать или купить) если мы хотим купить товар нам дают ссылку на интернет магазин а если продать на сайт где можно продавать самим.
Доп. функции: мы можем сканировать фотографию товара и программа сама скажет какой цены должен стоить этот товар, можно предлагать программе все возможные цены она будет говорить нужна ли цена больше или меньше.
ну.. не знаю как получилось я просто составила название для программы как она будет работать и доп. функции надеюсь
uses crt;
var n,m,i,p:longint;
s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
begin
m:=i;
p:=1;
while m>0 do
begin
p:=p*(m mod 10);
m:=m div 10;
end;
if p=s then
begin
k:=1;
write(i,' ');
end;
end;
if k=0 then write('Таких чисел нет');
readln
end.
Объяснение:
True, false
Объяснение:
Остальное не знаю