for var i:= 1 to length(st) do if st[i] in Rus then inc(r) else if st[i] in Eng then inc(e);
if r > e then writeln('Русских букв больше') else writeln('Английских букв больше'); begin var s := ReadlnString('Введите текст:'); writeln(s.Where(v -> v in ['A'..'Z']).Count > s.Where(v -> v in ['А'..'Я']).Count ? 'Латинских букв больше' : 'Русских букв больше'); end.
Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
ПОСЛЕДОВАТЕЛЬНОСТЬ ФИБОНАЧЧИ, математическая ПОСЛЕДОВАТЕЛЬНОСТЬ, каждый член которой является суммой двух предыдущих. Таким образом, если энный член последовательности обозначается хn, то для всей последовательности справедливым будет уравнение: хn+2=хn+хn+1, первыми двумя членами которого будут x1=l и x2=1. Порядок последовательности при этом таков: 1, 1, 2, 3, 5, 8, 13, 21..., следующим числом будет 34, т. к. сумма 13 и 21 равна 34 и т.д. Когда число n становится очень большим, отношение соответствующих членов устремляется к величине (Ц5+l)/2. Это соотношение называется золотым. В природе последовательность Фибоначчи можно проследить на примерах спирального развития сегментов раковины и лепестков подсолнуха, расходящихся лучами из одной точки в центре цветка. см. также ЗОЛОТОЕ СЕЧЕНИЕ.
if st[i] in Rus
then inc(r)
else if st[i] in Eng
then inc(e);
if r > e then writeln('Русских букв больше')
else writeln('Английских букв больше');
begin
var s := ReadlnString('Введите текст:');
writeln(s.Where(v -> v in ['A'..'Z']).Count > s.Where(v -> v in ['А'..'Я']).Count ? 'Латинских букв больше' : 'Русских букв больше');
end.