var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
Склероз мучает, но тем не менее 3 информационных процесса я вспомню - хранение, передача, обработка информации. Слегка подумав можно понять что все 3 подходят в определенных условиях, но если случайно так удастся вспомнить еще какие нить информационные процессы, то я уверен найдутся условия при которых съемка фильма однозначно задействует их все
на Pascal
program noname;
uses crt;
const
t=10;
var
a:array[1..t] of byte;
i,k:byte;
x,n:integer;
r:real;
begin
clrscr;
randomize;
x:=1; k:=0; n:=0;
for i:=1 to t do begin
a[i]:=random(20-1+1)+1;
if (a[i] mod 2=0) then x:=x*a[i]
else begin n:=n+a[i]; k:=k+1; end;
writeln ('a[',i,']=',a[i]);
end;
r:=n/k;
writeln ('произведение элементов с четным значением=', x);
writeln('ср.арифм. элементов с нечетным значением=',r);
end.
<span><span /><span><span>
x
x1
</span><span>
2.00
2.69
</span><span>
2.20
3.99
</span><span>
2.40
5.37
</span><span>
2.60
6.74
</span><span>
2.80
7.95
</span><span>
3.00
8.92
</span><span>
3.20
9.59
</span><span>
3.40
9.94
</span><span>
3.60
10.02
</span><span>
3.80
9.90
</span><span>
4.00
9.71
</span></span></span>