Uses CRT;Var a:set of char; s:string; j:char; i,k:integer;begin writeln('Введите строку: ');readln(s);a:=[];k:=0;for i:=1 to length(s) do if s[i] in ['А','а','Е','е','Ё','ё','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'] then begin a:=a+[s[i]]; k:=k+1; end;write('Гласные буквы, присутствующие в строке: ');for j:='А' to 'я' do if j in a then write(j:2); writeln; write ('Количество гласных букв: ',k);<span>end.</span>
Во вложении показана принятая условная схема нумерации полей.
Предполагается, что если ферзь стоит на клетке с координатами (3,4), он может пойти по горизонтали, вертикали или диагонали. Соответствующие направления выделены цветом.
Чтобы взять фигуру (или пешку) противника по горизонтали, у обоих фигур должны быть одинаковы координаты строки (первые в паре).
Чтобы взять фигуру противника по вертикали, у обоих фигур должны быть одинаковы координаты столбца (вторые в паре в паре).
Наконец, чтобы взять фигуру противника по диагонали, у обоих фигур должна быть одинакова абсолютная величина разницы как между строками, так и между колонками.
Последнее правило взятия сложное, поэтому запишем его в условных обозначениях. Пусть Rq и Cq - соответственно номера строки и столбца, пересечение которых указывает положение клетки с ферзем. Пусть также фигура противника находится на клетке, заданной координатами Rx и Cx.
Тогда последнее правило можно записать в виде |Rq-Rx| = |Cq-Cx|
Теперь можно записать логическое выражение, значение которого истинно, если ферзь может взять фигуру (или пешку) противника.
(Rq=Rx) ∨ (Cq=Cx) ∨ (|Rq-Rx| = |Cq-Cx|)
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (Rq,Cq):=ReadInteger2('Введите номера горизонтали и вертикали ферзя:');
var (Rx,Cx):=ReadInteger2('Введите номера горизонтали и вертикали фигуры:');
if (Rq=Rx) or (Cq=Cx) or (Abs(Rq-Rx)=Abs(Cq-Cx)) then Writeln('Yes')
else Writeln('No')
end.
<u>Пример</u>
Введите номера горизонтали и вертикали ферзя: 3 4
Введите номера горизонтали и вертикали фигуры: 6 1
Yes
Да, можно.У книги очень маленький вес в мегабайтах.(это не обязательно писать).
6) 11(2) = 3(10), 11(3) = 4(10), 3*4 = 12(10) = 1100(2) = 110(3)
8) 144(16) - наибольшее. Вообще, если написание чисел одинаково, то больше то число, у которого больше основание.
Если еще посчитать надо, то вот.
144(16) = 16^2 + 4*16 + 4 = 256 + 64 + 4 = 324(10)
144(10) = 144(10)
144(8) = 8^2 + 4*8 + 4 = 64 + 32 + 4 = 100(10)
144(6) = 6^2 + 4*6 + 4 = 36 + 24 + 4 = 64(10)