4 монеты хмм
монеты достоинством 1 2 5 хмм их 3
значит нельзя утверждать, что все они разные.
Варианты:
1 2 5 1
1 2 5 2
1 2 5 5
Ответ: файл храниться в файле - <span>САМРАБ.DOC
Файл лежит в папке - </span><span>САМОСТОЯТЕЛНАЯ РАБОТА</span>
1).Из 3 бочонка перелить во 2й 3 литра.
2).Из 1 бочонка перелить 1 литр в 3й.
Сравнить с 1Мбайтом не очень понятно.
2. 20480бит=2560байт=320Кбайт < 1Мб
3. 5Мбайт=5120 Кбайт=5242880байт=41943040бит>1Мбайт
4. 153600байт=150 Кбайт<1Мбайт
5. 6Кбайт=6144 байт=49152 бит<1Мбайт
<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