// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.
2-10
3-7
4-4
5-6
6-1
7-?
8-3
9-8
10-2
11-9
Где? на каком сайте? какая почта?
Var
n, p: integer;
begin
Write('Введите натуральное четырехзначное число -> ');
Readln(n);
p := (n div 1000) * (n mod 10); { произведение первой и последней цифр }
n := (n mod 1000) div 10; { вторая и третья цифры }
p := p * (n div 10) * (n mod 10);
Writeln('Произведение цифр числа равно ', p)
end.
Тестовое решение:
Введите натуральное четырехзначное число -> 2437
Произведение цифр числа равно 168