1. первый элемент списка s равен 1: s[0]=1 . составьте список из 10 элементов, в котором а)каждый следующий элемент больше предыдущего на величину его номера в списке b)каждый следующий элемент равен удвоенному предыдущему плюс один 2. в списке s из один найти количество a)двузначных чисел b)чисел кратных 5 3. даны два вектора а и в в виде списков координат. найдите сумму и разность этих векторов. 4. дано число 2 в степени 1000. найдите сумму цифр этого числа. какая из цифр встречается чаще? буду
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(5); Writeln(5*a.ColCount*'-');
Writeln('Сумма элементов массива: ',
a.Rows.SelectMany(x->x).Sum)
end.
Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив [6,9] ***
39 99 51 44 -28 -85 -52 -98 -56
68 41 3 34 54 -39 -72 15 -80
47 -11 35 -50 65 70 58 52 -1
38 82 -37 93 32 51 -82 -32 98
-72 -12 59 87 44 -4 -14 -56 13
44 72 1 63 48 -77 4 -28 73
Сумма элементов массива: 691
// Внимание! Если программа не работает, обновите версию!
begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
case age of
0..13:Writeln('Мальчик');
14..20:Writeln('Юноша');
21..70:Writeln('Мужчина');
else Writeln('Старец')
end
else
case age of
0..13:Writeln('Девочка');
14..20:Writeln('Девушка');
21..70:Writeln('Женщина');
else Writeln('Старушка')
end
end.