var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do if s[i]=' ' then begin
if s[1]=s[i+1] then
writeln('слова начинаются с одной и той же буквы')
else writeln('слова начинаются с разных букв');
if s[i-1]=s[i+1] then
write('второе слово начинается с той же буквы, на которую заканчивается первое слово')
else
write('второе слово не начинается с той же буквы, на которую заканчивается первое слово');
break;
end;
end.
<span>Я НЕ ОЧЕНЬ ПОНЯЛА ВОПРОС поэтому на 100% в ответе не уверена </span>
<span>В условии задачи подразумевается, что цены выражаются целым числом рублей. Число ложек, цена которых 200 рублей, равное числу вилок, цена которых 176 рублей, должно быть делителем 200 и 176. Таких чисел три – 2, 4. И 8. Поэтому цена одной ложки равна либо 100 рублей, либо 50 рублей, либо 25 рублей. Условию задачи удовлетворяет последняя цена – 25 рублей. Следовательно, 5 ложек стоят 125 рублей. </span>
После первого "end" поставь ;
Если не помогло скажи
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ