// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N=')) .Where(x->Abs(x).Between(10,99)).Count) end.
Пример N= 5 Вводите числа: 23 -4 100 -42 16 3
begin var k:=ReadInteger('K='); Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N=')) .Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count) end.
В 1996-ом году на свет вышло следующее поколение дисков – DVD (Digital Versatile Disc). Благодаря более плотной структуре поверхности, а также тонкому лазеру и маленькому шагу дорожки эти носители могли хранить гораздо больший объем информации
Компакт-диски (CD) изначально имели возможность только хранения информации. Но потом появилась возможность их записи и перезаписи благодаря тому, что на диск наносился слой с изменяемым состоянием
. Диски Blu-ray – современный тип оптических носителей. Благодаря тонкому сине-фиолетовому лазеру шаг дорожки был значительно сокращен, а объем хранящихся данных – вырос
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
Пример
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
Пример
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2
Компакт-диски (CD) изначально имели возможность только хранения информации. Но потом появилась возможность их записи и перезаписи благодаря тому, что на диск наносился слой с изменяемым состоянием
.
Диски Blu-ray – современный тип оптических носителей. Благодаря тонкому сине-фиолетовому лазеру шаг дорожки был значительно сокращен, а объем хранящихся данных – вырос