При значении А=1 и В=1
Вопрос по инфознайке?
<h3>Программы будущего</h3><h3 />
В 21-м веке программы стали неотъемлемой частью почти всех людей в мире. В мире насчитывается более миллиарда программ и каждый имеет возможность найти подходящую для него.
Но часто ли Вы задумываетесь какие программы будут в будущем? Какое предназначение они будут нести? На этот вопрос я постараюсь ответить. Что мы знаем о программах: они полезны, быстры, упрощают нам жизнь. Следовательно в будущем они будут быстрее и практичнее. Скорее всего в будущем каждая программа будет обладать искусственным интеллектом, который будет выполнять различные функции. И это позволит в разы ускорить взаимодействие человека с программой. Одна программа будет заменять сотню предыдущих, будет выполнять бытовые и не только работы. Например, допустим будет существовать программа от русских разработчиков "Сделаю ВСЕ", которая будет вам заводить будильник, отсылать машину на мойку, заправлять машину, поливать цветы, сообщать о погоде и о интересующих вас новостях. Каждый день мы шаг за шагом стремимся к этому промежутку времени, когда одна программа сможет облегчить нам жизнь в сотню раз.
Я считаю, что в будущем нас ждут прекрасные программы. Возможно, даже появятся такие программы, которые будут писать домашку за простых смертных. И это время будут по-истине удивительным и прекрасным!
Нужно добавить всего-то 1 строку:
...
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then
{если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
begin
slovo := copy(stroka,1,i-1); // копируем слово
If (slovo[1]='л') or (slovo[Length(slovo)]='ь') then Writeln(Slovo);
delete(stroka,1,i-1); // Удаляем его из текста
while (length(stroka)>0)and (not(stroka[1] in b)) do
delete(stroka,1,1); // удаляем все разделители до следующего слова
i := 1; // снова рассматриваем слово с первого символа
end
....
//Pascal ABC.NET v3.1 сборка 1172
begin
range(26,87).Where(x -> x mod 3=0).Println(',');
end.