<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var aw:=ReadlnString('Введите строку:').ToWords;
var w:=ReadlnString('Введите искомое слово:');
var i:=aw.FindIndex(e->e=w);
var s:string;
if i>-1 then
if i=aw.Count-1 then s:=aw[:i].JoinIntoString
else s:=(aw[:i]+aw[i+1:]).JoinIntoString
else s:=aw.JoinIntoString;
s.Println
end.
<u>Замечание:</u>
Учитываются именно <u>слова</u>, а не контекст, т.е. слово должно отделяться от остальной части строки пробелом, либо признаками начала/конца строки.
Ответ:
Ровно 1 раз
Объяснение:
Постусловие означает, что условие будет проходить проверку на true или false после выполнения алгоритма, раз оно всегда true то и выполняться будет всего 1 раз
Мы живем в таком мире, в котором люди постоянно окружены информацией. Все окружающие вас процессы, предметы, явления несут в себе информацию, но иногда получаемой вами информации по определенному вопросу бывает либо недостаточно, либо слишком много. Так что же лучше, переизбыток или недостаток? Я думаю, конечно же, переизбыток. Человек обладает способностью анализировать, поэтому я считаю, что лучше получить информации чуть больше, чем надо и впоследствии переработать ее, чем чего то не понять и продолжать лишь догадываться. Информация это всегда хорошо, человеку свойственно тянуться к новым знаниям, главное уметь из ее непрерывного потока взять максимум полезного для себя.
64=2^6
1024*512*6= 3 145 728бит= 384Кбайт
Ответ: 384
Прошу:)
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
b := d mod 100 div 10;
c := d mod 10;
writeln(b, c, a);
<span>end.
можно ещё сократить:
var a, b, c, d: integer;
begin
readln(d);
writeln(d mod 100 div 10, d mod 10, d div 100);
<span>end.
или даже:
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
writeln(d - a * 100, a);
<span>end.</span></span></span>
