Простой карандаш, лупа, ластик, лист бумаги
Если речь идет об эксель, то минимальной является ЯЧЕЙКА.
ячейки объединяются в столбцы и строки. они в свою очередь в таблицу.
Uses crt;
var s:string;
n,i:integer;
begin
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=s[n] then delete(s,i,1);
writeln(s);
end.
Эта программа рассчитана на то, что удаляется и последний символ тоже
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638
1. вкус
2. обоняние
3. зрение
4.осязание
5.обоняние + зрение
6.осязание