// PascalABC.NET 3.2, сборка 1509 от 27.07.2017 // Внимание! Если программа не работает, обновите версию!
function SumDig(n:integer):integer; begin Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray; Write('Палинодромы: '); a.Select(x->x.ToString).Where(x->x=x.Inverse).Println; var k:=ReadInteger('Введите простое число'); Write('Числа, сумма цифр которых больше введенного: '); a.Where(x->SumDig(x)>k).Println end.
Пример n= 12 Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573 Палинодромы: 4664 9889 Введите простое число 19 Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573
Const n=10; var A: array[1..n] of integer; B:array[1..n] of integer; i: integer; sum: integer; begin {Заполнение массивов случайными числами} randomize; for i:=1 to n do begin A[i]:=random(100)-50; B[i]:=random(100)-50; {или B[i]=A[i];, если значения массива B должны совпадать со значениями массива A } end; {Поиск суммы отрицательных элементов} sum:=0; for i:=1 to n do if A[i]<0 then sum:=sum+A[i]; {Замена нулевых элементов массива B на полученную сумму} for i:=1 to n do if B[i]=0 then B[i]:=sum; {Вывод значений массива A} writeln('массив A'); for i:=1 to n do write(A[i],','); writeln(''); writeln('Массив B'); {Вывод значений массива B} for i:=1 to n do write(B[i],',');
{Ожидание нажатия клавиши return от пользователя.} readln; end.
// Внимание! Если программа не работает, обновите версию!
function SumDig(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
Write('Палинодромы: ');
a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;
var k:=ReadInteger('Введите простое число');
Write('Числа, сумма цифр которых больше введенного: ');
a.Where(x->SumDig(x)>k).Println
end.
Пример
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573