1. Объявлен целочисленный массив из 100 элементов, проиндексированных от 0 до 99.
2. Будет выведено p=2s=0
В параметрах процедуры Incr отсутствует var перед q, поэтому значение параметра при выходе из процедуры не изменится. Процедура увеличивает на 1 значение глобальной переменной p. Первоначально р=0 и два вызова процедуры сделают р=2. Значения s, как было выше пояснено, процедура не изменит, поэтому оно так и останется нулевым.
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
290 * 39 * 67 = 757770 символов
Для кодирования одного символа требуется 1 байт, значит для кодирования 757770 символов потребуется 757770 байт.
757770 байт = 740 кбайт = 0,72 мбайт
Значит, книгу можно разместить на дискете
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
Поля в БД могут быть такими:
Таблица 1 Известные исполнители
1) Исполнитель
2) Страна проживания
3) Дата рождения
4) Музыкальный жанр
5) Ссылка сайт
Если БД должна иметь связанные таблицы, то можно добавить Таблицу 2 Альбомы:
1) Исполнитель
2) Название альбома
3) Дата выпуска
4) Треки