program test;
var a:array [1..20] of integer;
min, i, imin: integer;
begin
min:=a[19];
imin:=19;
for i:=1 to 20 do begin
a[i]:=random (151)+150;
write (a[i]:4);
end;
writeln;
for i:=19 downto 1 do begin
if a[i]<min then begin imin:=i; min:=a[i]; end;
end;
write (imin);
writeln;
write (a[imin]);
end.
<em>// PascalABC.NET 3.2, сборка 1509 от 27.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573
Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
Цикл «for k := 0 to 8 do» выполняется девять раз. Каждый раз переменная s уменьшается на 4. Поскольку изначально s = 50, после выполнения программы получим: s = 50 − 9 · 4 = 14.