История ИИТ начинается с середины 1970-х годов и связывается с совместным практическим применением интеллектуальных информационных систем, систем искусственного интеллекта, систем поддержки решений и информационных систем. История ИИТ связана также с развитием трех научных направлений: компьютерной философии, компьютерной психологии и продвинутой компьютерной науки (Advanced computer science) и дополняется прогрессом в создании:
1. ситуационных центров
2. информационно-аналитических систем
3. инструментариев эволюционных вычислений и генетических алгоритмов
4. систем поддержки общения человека с компьютером на естественном языке
5. когнитивным моделированием
6. систем автоматического тематического рубрицирования документов
7. систем стратегического планирования
8. инструментариев технического и фундаментального анализа финансовых рынков
9. систем менеджмента качества
10. систем управления интеллектуальной собственностью и др.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
История ИИТ начинается с середины 1970-х годов и связывается с совместным практическим применением интеллектуальных информационных систем, систем искусственного интеллекта, систем поддержки решений и информационных систем. История ИИТ связана также с развитием трех научных направлений: компьютерной философии, компьютерной психологии и продвинутой компьютерной науки (Advanced computer science) и дополняется прогрессом в создании:
1. ситуационных центров
2. информационно-аналитических систем
3. инструментариев эволюционных вычислений и генетических алгоритмов
4. систем поддержки общения человека с компьютером на естественном языке
5. когнитивным моделированием
6. систем автоматического тематического рубрицирования документов
7. систем стратегического планирования
8. инструментариев технического и фундаментального анализа финансовых рынков
9. систем менеджмента качества
10. систем управления интеллектуальной собственностью и др.
Объяснение:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.