Var
<span> a, b, c, p,s,s1: real;</span>
begin
<span><span>
write(</span>'Введите три стороны треугольника: '<span>); </span></span><span>
read(a, b, c);</span><span>
p := (a + b + c) / 2;</span><span>
s := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Введите три стороны другого треугольника: '<span>); </span></span><span>
read(a, b ,c);</span><span>
p := (a + b + c) / 2;</span><span>
s1 := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Треугольники равновеликие -- ', s = s1)</span><span>
end.</span>
1) использовать Робот
алг
нач
вниз
нц пока не слева свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно и не слева свободно
закрасить
вправо
кц
нц пока не снизу свободно и справа свободно
закрасить
вправо
кц
нц пока не снизу свободно и не справа свободно
закрасить
вверх
кц
нц пока не справа свободно
закрасить
вверх
кц
кон
Нужно добавить всего-то 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
....
Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)
1410(10) = 2602(8)
1410(10) = 10110000010(2)
1410(10) = 582(16)