<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
Что именно нужно распознавать на картинке? Текст? Нет какой-то обычной команды. Это нужно несколько лет разработки, куча потраченных нервов и денег, чтобы в итоге сделать распознавание чего-либо на картинке.
Добрый день, это краткий формат вывода данных.
Program z1; Var a,b,c,d,e,f,s:string;Begin write('Введите название животного - '); readln(s); writeln; a:='кошка'; b:='собака'; c:='птица'; d:='мышь'; e:='лиса'; f:='волк'; if (s=a) then writeln(s,' - cat') else if (s=b) then writeln(s,' - dog') else if (s=c) then writeln(s,' - bird') else if (s=d) then writeln(s,' - mouse') else if (s=e) then writeln(s,' - fox') else if (s=f) then writeln(s,' - wolf') else writeln('Таких животных в базе нету'); <span>End.</span>
Ответ: только что был этот вопрос: сделал такую же программу
program Test;
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.