<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
<span>прямопропорционально</span>
Пн.A,B,C,D
вт.D,C,B,B,A
ср.A,A,A,C,B,D
чт.D,D,D,B,C,A
пт.A,B,A,A,D
A=9
B=6
C=4
D=7
===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18
1. Переведём : 2550 КБ = 20400 Кбит
2. Определим время:
3. Ищем неизвестное:
x = 28560 Кбит
4. Переведём : 3570 КБ
Перевод осуществляется:
1 КБ = 8Кбит