нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек рассказать могу это дело.и в ученые доили.государство,и в сша.
Ответ дал: Гость
паскаль
откомпилирован в: pascal abc
program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Ответ дал: Гость
var
i: integer;
begin
for i: =100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
Популярные вопросы