// PascalABC.NET
begin
// 1
var s11 := SeqRandom(100, 10, 99).Sum;
var s12 := ArrRandom(100, 10, 99).Sum;
case Sign(s11 - s12) of
-1: Println('Сумма второго массива больше');
0: Println('Суммы равны');
else
Println('Сумма первого массива больше')
end;
// 2
var s21 := SeqRandom(1000, -9, 9).Sum;
var s22 := ArrRandom(1000, -9, 9).Sum;
var s23 := ArrRandom(1000, -9, 9).Sum;
if s21 > s22 then
Swap(s21, s22);
if s22 > s23 then
begin
Swap(s22, s23);
if s21 > s22 then
Swap(s21, s22)
end;
Println(s21, s22, s23);
// 3
var a := ArrRandom(50, -99, 99);
a.Println;
var s31 := a.Where(p -> p > 30);
Print('Количество', s31.Count, ' сумма', s31.Sum)
end.
Найти сумму первых 10 натуральных чисел кратных 3.Найти произведение первых 8 натуральных чисел кратных 7.Вывести первые 25 натуральных четных чисел.Вывести первые 15 натуральных чисел кратных 5.Ввести четное число с клавиатуры. Разделить его на 2 до тех пор, пока оно не станет равно1.Ввести число с клавиатуры. Вычитать от него 1, пока оно не станет равным 0.Ввести число с клавиатуры. Прибавлять к нему 5, до тех пор пока оно не станет больше самого себя в 10 раз.Ввести число с клавиатуры. Отнимать от него 2, до тех пор пока оно не станет меньше самого себя вдвое.Ввести натуральное число с клавиатуры. Найти количество его цифр.Ввести натуральное число с клавиатуры. Найти сумму его цифр.Ввести число с клавиатуры. Вывести все его цифры.Вывести 15 первых чисел, так чтобы каждое последующее было в 2 раза больше предыдущего.Вывести 10 первых чисел, так чтобы каждое последующее было на 10 больше предыдущего.Вывести 20 первых чисел, так чтобы каждое последующее было на 1 меньше предыдущего. Первое число - 25.
1011011=91
671=441
614=1146
17,25=10001.01