Во время работы прикладная программа сама организует общение с пользователем, но когда программа завершила работу, с пользователем начинает общаться операционная система. Это общение происходит в такой форме:
<приглашение> - <команда>.
ОС выводит на экран приглашение в какой-то определенной форме. В ответ пользователь отдает команду, определяющую, что он хочет от машины. Это может быть команда на выполнение новой прикладной программы, команда на выполнение какой-нибудь операции с файлами (удалить файл, скопировать и пр.), команда сообщить текущее время или дату и пр. Выполнив очередную команду пользователя, операционная система снова выдает приглашение.
Такой режим работы называется диалоговым режимом. Благодаря ОС пользователь никогда не чувствует себя брошенным на произвол судьбы. Все операционные системы на персональных компьютерах работают с пользователем в режиме диалога. Режим диалога часто называют интерактивным режимом.
Интерактивность — это информационно-коммуникационной системы, без участия человека, активно и разнообразно реагировать на действия пользователя. Говорят, что система «умная», то есть как бы обладает каким-то интеллектом.
В данном смысле, возможность позвонить или отправить SMS в какую-то телевизионную программу во время эфира еще не есть интерактивность. Хотя, если вся информация, полученная от телезрителей или пользователей, будет определенным образом обрабатываться, освещаться в эфире в текущем времени (или с небольшой задержкой), и на ее основе будут вырабатываться конкретные решения (из достаточно большого множества имеющихся), то эту систему можно будет назвать интерактивной (в общем квази интерактивной).
Так же не является интерактивностью людей общаться в форумах и создавать сообщества.
Первая
var n,x:integer;
begin
readln(n);
while n <> 0 do begin
x:=x + n mod 10;
n:=n div 10;
end;
if(x mod 2 = 0) then
writeln('true')
else
writeln('false');
end.
Вторая
var x,z,s:integer;
begin
readln(x);
if (x > 99) and (x < 1000) then begin
s:=x;
while s<>0 do begin
z:=z+s mod 10;
s:=s div 10;
end;
if(x*x) = (z*z*z) then
writeln('true')
else
writeln('false');
end
else
writeln('Число должно быть 3-ех значным!');
end.
Третья
Var a,b,c:Real;
Begin
Writeln('Введите a');
Readln(a);
Writeln('Введите b');
Readln(b);
Writeln('Введите c');
Readln(c);
if (a=b) or (a=c) or (b=c) then
writeln ('true')
else
writeln ('false);
end.
