<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
// Вводим строку с клавиатуры, приводим буквы к строчным,
// разбиваем на слова по пробелу и помещаем их в массив aW
var aW:=ReadlnString('->').ToLower.ToWords;
// Пропускаем массив через фильтр, оставляющий слова, содержащие
// русскую букву "а" и подсчитываем, сколько слов прошло через него.
// Полученное количество выводим.
Writeln('Слов с "а": ',aW.Where(w->Pos('а',w)>0).Count)
end.
Пример
-> Наша Таня громко плачет: уронила в речку мячик
Слов с "а": 4
Первое задание : 1 и 3
третье задание :TWYU
шестое задание : 1 Мбайт
Подсчитаем количество чётных чисел. В разряде десятков тысяч этого числа может стоять любое из цифр {2,5,8} (то есть всего 3 варианта). В разряде тысяч, сотен, десятков могут находится любые из цифр {8,5,2,0} (для каждого разряда по 4 варианта). В разряде единиц могут стоять только цифры из множества {0,5,8} (то есть 3 варианта). Применяя известную комбинаторную формулу, считаем, что всего вариантов 3*4*4*4*3=396.
подсчитаем количество возможных нечётных чисел. Ситуация со всему разрядами, кроме единиц аналогично. А вот в разряде единиц может стоять только цифры из множества {5} (один вариант). Таким образом количество возможных нечётных чисел равна 3*4*4*4*1=192.
Ответ: 396 чётных и 192 нечётных
Var
a: array of integer;
i, n: integer;
begin
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
read(a[i]);
for i := 0 to n - 1 do
begin
if a[i] < 0 then a[i] := 0;
write(a[i], ' ');
end;
end.
45000*(1,03*(2017-1985))=45000*(1,03*32)=45000*32,96=1483200
1,03 это 103% т.к. население увеличивалось на 3%.
В скобке ищем сколько лет прошло
И умножаем на изначальное число жителей
