<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
s:=s.Left(Pos('!',s)-1);
Writeln('Пробелов: ',s.Where(c->c=' ').Count);
Writeln('Буква "ю" в последовательность ',Pos('ю',s)=0?'не ':'',
'входит');
if s.Intersect('шина').Count=4 then
Writeln('Среди символов есть все буквы слова "шина"')
else Writeln('Среди символов нет всех букв слова "шина"');
if s.Matches('но|он').Count>0 then
Writeln('Есть соседствующие буквы "он" или "но"')
else Writeln('Нет соседствующих букв "он" или "но"');
if s.ToCharArray.Pairwise((x,y)->x=y).Count>0 then
Writeln('Есть пара соседствующих одинаковых символов')
else Writeln('Нет пары соседствующих одинаковых символов')
end.
<u>Пример:</u>
Введите строку: наша пища хороша, но не так, чтобы очень. соответственно, мы не очень толсты! как-то так.
Пробелов: 12
Буква "ю" в последовательность не входит
Среди символов есть все буквы слова "шина"
Есть соседствующие буквы "он" или "но"
Есть пара соседствующих одинаковых символов
16 777 216 цвета - это 3 байта на пиксель, 3*1600*1200=5760000 байт = 5,5 Мб, Поэтому только на 64 метра подойдет
Научить солдат военному делу и дисциплине .
A = 5
b = 10
from math import gcd
for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')
var a,x,b:real;
Begin
read(a,x);
if x>4 then b:=x*ln(x*x);
if x<3 then b:=a*cos(x);
writeln(b);
End.