№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Числа в задаче даны в системе счисления с основанием 8:
24(8) = 2*8+4 = 20(10)
5(8) = 5(10)
12(8) = 8+2 = 10(10)
Дано:
k =320*240
I = 50 Кбайт = 50*1024*8 бит
Найти: N = ?
Решение:
N = 2 ⁱ ; i = I/k
i = 50*1024*8/(320*240) = 5,(3) ≈ 5
N = 2⁵ = 32
Ответ: 32.
Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.