расчерти таблицу , в один столбик слева запиши фамилии, сверху профессии
И начинай заполнять.
Петров и Гришин никогда не держали малярной кисти- ставь минус напротив их фамилии они точно не маляры.
<span>.Иванов и Гришин всё собираются посетить мельницу, на которой работает их товарищ. ставь минус напротив их фамилии они точно не мельники.</span>
Когда все отметишь остануться пустые клеточки там поставь +
У тебя должно получиться Иванов-парихмахер
Петров плотник
Сидоров мельникГришин почтальон
Алексеев маляр
Весь смысл в таблице, без неё тяжеловато
УДАЧИ!!!
Несомненно, пользователь <span><span>Yuliagal </span>правильно сделала задание. Я оставлю свой ответ здесь, если вдруг кто-нибудь не понял, как это задание можно выполнить.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);<em>//Находим позицию символа л </em>
e := pos('е', st);<em>//Находим позицию символа е </em>
s := pos('с', st);<em>//Находим позицию символа с </em>
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); <em>//Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.</em>
if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); <span><em>//Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.</em>
</span><span>end.
Еще раз повторюсь, решение </span></span><span>Yuliagal верное, и самое короткое.</span>
Решение: 6*2=12
<span> 2*1=2
У меня получилось так. Я хз</span>
Var a:array [1..2018] of integer; i,min,r:integer;begin min:=1001; for i:=1 to 2018 do begin readln(a[i]); if (a[i] > 100) and (a[i] < min)then min:=a[i]; end; r:=min-100; for i:=1 to 2018 do begin if (a[i] > 100) then a[i]:=a[i]-r; writeln(a[i]); end;end.
Должно работать, но я ее не проверял, по понятным причинам))
