Хз у меня дельфи тут, вот что-то типо такого будет:
function WhatEver(x,y:extended):extended;
var
e:extended;
begin
e:=Exp(1);
if (x >= -1) and (x < -0.05 )
then y:=(-x)*3+sin(x);
if (x >= -0.05) and (x < 2)
then y:=(x+e*x)-1;
if (x >= 2) and (x < 3)
then y:=13-ln(x)*4;
if (x >= 3) and (x <= 4)
then y:=8+10*sin(x-3);
result:=y;
<span>end;</span>
Var f1,f2:text;
a,b,t,t1:integer;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
readln(f1,a,b,t);
t1:= t mod (2*a+2*b);
if (t1>=0)and(t1<a) then writeln(f2,'S')
else if (t1>=a)and(t1<a+b) then writeln(f2,'E')
else if (t1>=a+b)and(t1<2*a+b) then writeln(f2,'N')
else writeln(f2,'W');
close(f1); close(f2);
end.
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Введите 10 целых чисел:',10);
var pe:=a.Where(t->t.IsEven).Count/10;
Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.
<u>Пример</u>
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%
1. Для кодирования одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
Объем информации в своде законов:
512*256*6 бит = 512*256*6 / 8 байт = 512*256*6 / (8*1024) Кбайт = 96 Кбайт
2. 128 Кбайт = 128*1024 байт = 128*1024*8 бит
Память для одного пикселя: 128*1024*8 / (512*256) бит = 8 бит
Количество цветов = 2^8 = 256