<em><u>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</u></em>
<em><u>// Внимание! Если программа не работает, обновите версию!</u></em>
begin
var sogl:='бвгджзйклмнпрстфхцчшщ';
var s:=readlnString('>').ToLower;
s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.
<u>Пример</u>
> А роЗА УПалА На АПУ аЗора
злнпр
K= 32; m=32/4-5=3;k=3+3*4=15; m=3-15=-12
3Кб=3*1024=3072байта
3Кб=3*1024*8=24576бита
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Дана последовательность чисел 0, 0, 1, 1, 2, 4, 7, 3, 4, 4 … , каждый элемент этой последовательности, начиная с четвёртого раве
NoriGloria [245]
Ответ будет 7.
Если интересно то вот код программы с помощью которого можно найти значение для любого элемента последовательности.
Вместо 1400 вводишь номер элемента
int a = 0, b = 0, c = 1, d = 1;
for (double i = 1; i <= 1400-3; i++ ) {
d = (c + b + a)%10;
a = b;
b = c;
c = d;<span>
Console.WriteLine(d);
}</span>
