Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.
Ответ:
это информация, которая может быть тебе полезной, Например: человек рассказал тебе что и как нужно делать при пожаре, (при случае пожара тебя эта информация может спасти)
То есть такой рассказ или объяснение которое тебе нужно и нужно всем людям.
Объяснение:
Когда есть компьютер и когда его нет.
Program n1;
var s,s1,s2: string;
function max(a,b,c: integer): integer;
begin
max:=0;
if (a>b) and (a>c) then max:=a else
if (b>c) and (b>a) then max:=b else
if (c>a) and (c>b) then max:=c;
end;
begin
readln(s);
readln(s1);
readln(s2);
write(max(length(s),length(s1),length(s2)));
end.
1024000 бит сек * 5 сек = 5120000 бит вес файла (инф. объём).