// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе
Ответ под цифрой 4. Изначально следует посчитать количество символов, включая пробелы, цифры и знаки препинания. Это значения K. Вес одного символа обозначается буквой i и равен 16 бит. И по формуле I=K*i узнаём:
32*16=512(бит). Следует так же обратить внимание на единицы измерения
"Из двух множеств, связанных отношением «является разновидностью», одно является подмножеством другого.Например, множество попугаев является подмножеством множества птиц."
2) Число - целое число.
Очевидно сбор.
Тип читаешь, получаешь новую инфу.
Rain[i] - массив с количеством осадков в i-тый день, 0 - если их не было
var rain: array [1..10] of integer;
i, k:integer;
begin
k := 0;
for i := 1 to 10 do
if rain[i] = 0 then k := k+1;
if k = 5 then writeln('Да, без осадков было ровно 5 дней');
end.