//PascalABC.NET
//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x->f(x)).Println;
end.
А m[i] от 1 до 106 или от 1 до 10^6 ?
Вообще-то неизвестно, сколько поместится, если не знать:
1) Сколько места осталось в сумке
2) Размер самой большой матрешки
3) Учтите, что может быть несколько групп матрешек, например
(25, 20, 18, 10) и (20, 18, 15, 10, 8) и (10, 8, 5, 3)
И все три группы могут влезть в сумку независимо друг от друга.
И еще. Вы понимаете, что если матрешек 10000 и их размеры от 1 до 10000 мм,
то самая крупная имеет диаметр 10000 мм = 10 м и не поместится ни в какую сумку?
Размер файла – это количество содержащейся в нем информации, измеренное в байтах.
может обозначаться
б
КБ
МБ
ГБ
Тб
В первом задании по моему вместо тире должна стоят → (импликация)
(Последняя буква гласная ^ Третья буква согласная) → Первая буква согласная? Россия - истина, Люксембург - истина, Америка - истина, Испания - ложно.