Текстовый файл, ну то есть содержит текстовую информацию.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.
Найдем значения ячеек:
A2 = 4/2 = 2.
B2 = 6/3 = 2.
D2 = 8/2 = 4.
Анализируя диаграмму, видим, что секторы попарно равны.
Сопоставляя таблицу и диаграмму, получается, что A2 и B2 одинаковые и они отражены более мелкими секторами. Из этого следует, что C2 = D2 = 4 и отображены крупными секторами.
Ответ: 4.
Var
s:string;
t,c:string;
function Palindrome(s:string):boolean;
var
i:integer;
begin
for i:= 1 to s.Length div 2 do
if s[i] <> s[s.Length-i+1] then
begin
Palindrome:=false;
exit;
end;
Palindrome:= true;
end;
begin
Readln(s);
c:=copy(s,1, s.Length div 2);
t:=copy(s,s.Length div 2 + 1, s.Length);
if (Palindrome(s))and(Palindrome(c))and(Palindrome(t)) then
Writeln('YES')
else
Writeln('NO');
end.
<u>Пример:</u>
ACAACA
YES
В последних версиях Windows можно нажать Windows+R, в появившемся окне набрать mspaint и нажать ok (или Enter на клавиатуре)