M-число строк
n-количество переменных
m=2^n
m=2^9=512
-9
код на vbscript
Sub Zadanie()
a=7
a=a -4
b=-a
c = -a+2*b
MsgBox c
End Sub
Call Zadanie()
-, -, -, -, -, -, -, -, -,
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function CalcWord(Stroka: string):integer;
begin
Result:=Stroka.ToWords.Where(w->w=w.Inverse).Count
end;
begin
var s:='казак пошел в кабак и сделал заказ';
Writeln('Слов-палиндромов: ',CalcWord(s))
end.
<u>Результат</u>
Слов-палиндромов: 5
<u>Если однобуквенные слова не учитываются</u>, надо изменить Where:
Where(w->(w=w.Inverse) and (w.Length>1))
1 Kaspersky
2 Если нажать Пропустить
3 Предотвратить заражение компьютера вирусами
4 1 Компьютер
2 Антивирус
3 Вирусы с сайтов интернета (Можно просто - Вирусы)