var x,z:real;
begin
writeln('Вычислить значение выражения по формуле y= (1+sin(SQRT(x+1)))/(cos(12*z-4))');
write('Введите число X: '); readln(x);
write('Введите число Z: '); readln(z);
writeln('y= ',(1+sin(sqrt(x+1)))/(cos(12*z-4)):0:2);
end.
A - Аня, b - Боря, v - Вася, g - Галя, d - Даша, i - Иван.
a>b, v>g, d<i, v<a, d>b;
Мы знаем, что а>b, значит ,что b<v;
Мы знаем, что d>b, значит ,что b<i;
Мы знаем, что v>g и v<a, значит ,что b<v;
Следовательно мы нашли обладателя меньшей флешки. Им стал Боря.
Раз b самый меньший, то в дальнейших расчетах его можно не использовать.
Мы знаем, что a>v, а это значит ,что a>g т.к. v>g !
Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.
Var x,y:real;beginx:= 0.1;writeln('x ':6,' y':6);while x<0.7 dobeginy:= 2*Sin(x);writeln(x :6, y:9:3);x:= x + 0.1;end;<span>end.</span>
//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>
При однобайтовой кодировке символа одно слово займет 8 байт. За минуту читается 160 слов, это 160х8=1280 (Байт).
7 часов - это 7х60=420 минут и за это время можно прочитать слова с общим объёмом 420х1280=537600 байт. 1 Кбайт равен 1024 Байта, поэтому объем в килобайтах составит 537600/1024=525 (Кбайт).
Ответ: 525 КБайт.