Система счисления шестеричная. Было 16 мальчиков и 20 девочек. Решение во вложении
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>9 декабря 1968 г.</span>
Var a,min:integer;
begin;
min:=<span>32767;
</span>a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
if a>0 then exit;
if min>a then min:=a;
end;
writeln(min);
end.
1. В скобках записан полином четвертой схемы. Представим его по схеме Горнера:
2. Строим алгоритм из последовательности операторов присваивания, не забывая в конце результат умножить на самого себя (чтобы получить квадрат выражения в скобках). Построение ведем, начиная с самых внутренних скобок.
y=2.5+x
y=x*y
y=-1+y
y=x*y
y=x*y
y=1+y
y=y*y