1) Обьемный алгоритм
2) Если есть циклы (огромное количество итераций)
3) Выполнение сложных вычислительных операций
Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
Закономерность количества символов:
1)1
2)3
3)7
4)15
5)15*2+1=31
6)31*2+1=63
7)63*2+1=127
Так как каждом действии концовка наших символов с 4 строки не сильно-то и изменяется, то присваиваем каждой букве число справа налево счтитая от 127 до 120
<span>7)............DCBAABA A C B A A B A A </span>
<span> 20 21 22 23 24 25 26 27 </span>
<span>Ответ: ACBA</span>
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.