Составьте программы в паскаль, используя оператор вывода (см. пример в тетради) 1. к празднику мама купила, конфеты, печенье и пряники. сколько всего сладостей было куплено, если конфет было 7 кг, печенья в 2 раза больше, чем конфет, а пряников на 4 кг меньше, чем конфет и печенья, вместе взятых. 2. ширина прямоугольника 17 см, а длина в 2 раза больше. найти периметр прямоугольника. 3. на парусной регате одновременно стартуют два судна. скорость одного судна равно 40 км/ч, скорость другого на 5 км/ч больше, чем скорость первого. на сколько времени раньше финиширует второе судно, если длина дистанции равна 360 км. 30
Я тебе дал,а ты сам подумай)
Объяснение:
Repeat — это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие
(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=1*0,1; получаем p:=0,1 проверяем условие 0,1<0,1 нет повторяем второй раз цикл, теперь p:=0,1 а не 1 как было в первый раз p:=0,1*0,1 p:=0,01 проверяем условие
0,01<0,1 да меньше цикл прерывается и (p) остаётся равным 0,01
var
s,w:string;
begin
Write('Введите предложение: '); Readln(s);
Write('Введите искомое слово: '); Readln(w);
s:=' '+s+' ';
if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
else Writeln('Слово не входит в предложение')
end.
Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение
Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)