Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
Const xn=1.5; xk=4.5; h=0.05;
var x,y,xmin,ymin:real;
i:integer;
begin
x:=xn;
xmin:=x; ymin:=exp(x)-x*x*x;
for i:=1 to round((xk-xn)/h) do
begin
x:=x+h;
y:=exp(x)-x*x*x;
if y<ymin then
begin
xmin:=x; ymin:=y;
end;
end;
writeln('xmin = ',xmin:5:2,' ymin = ',y:7:5);
end.
Результат:
<span>xmin = 3.75 ymin = -1.10787</span>
Раздели на два три раза, припеши 4 , раздели на два! Незачто
For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}