1) 128 * 40 = 5120 (с.) - символов на 1 странице
2) 5120 * 10 = 51200 (с.)
Ответ: 10 страниц содержат 51200 символов.
Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
Pascal
var n,a:integer;
s,x,si:real;
begin
readln(x,n);
si:=sin(x);
for a:=1 to n do
begin;
s:=s+si;
si:=sin(si);
end;
writeln(s);
end.
Условия попадания в область:
var
x,y:real;
begin
Write('Введите координаты точки (x,y): ');
Readln(x,y);
if (x>3) and (y>2) then Writeln('Точка попадает в область')
else Writeln('Точка не попадает в область')
end.
{
Для второго условия в if надо записать
(x<-2) and (y<-4)
}