// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш
<u>Вариант, если исключить однобуквенные:</u>
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Вводите:');
s.ToWords.Where(x->x=ReverseString(x)).
Where(x->x.Length>1).PrintLn;
end.
<u><em>Тестовое решение:</em></u>
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.
А)2кб больше, тк если перевести 8192бита в кб, то получиться 1кб. 8192:8:1024=1
б)8 байт больше, тк если перевести 1 бит вбайт , то будет 0,125 байт.
1:8=0.125
Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
64 символа - это 6 бит на хранение каждого, т.к.
2^6 = 64
Всего симовлов 100
информационная ёмкость сообщения 6*100 = 600 бит