Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
<span>end.</span>
У него две монеты на сумму 7 копеек - то есть одна не пятак, а про вторую нечего не говорится, значит она может быть пятаком, а другая естественно 2 копейки!
Музиканту потрібно для записування музики, та контажу її, инженеру для проектування проектів, а художнику він потрібен для проекції малюнків та формування скульптур у 3D
<em>VAR </em>
<em> k: LongInt;</em>
<em>BEGIN </em>
<em> k := 50; </em>
<em> While (k < 1000) do begin </em>
<em> k := k + 50; Write(k, ' ');</em>
<em> End;</em>
<em>END.</em>
<em>VAR </em>
<em> sum, k: LongInt;</em>
<em>BEGIN </em>
<em> k := 101; sum := 0; </em>
<em> While (k < 150) do begin </em>
<em> sum := sum + k; </em>
<em> k := k + 2; </em>
<em> End; </em>
<em> Writeln(sum);</em>
<span><em>END.</em></span>
l = list(map(int,input().split())) # <em>ввод чисел
</em>
a = [] # массив для вторых цифр
for i in range(len(l)):
a.append(l[i] % 10) # <em>заполнение массива вторыми цифрами
</em>
print(l[a.index(max(a))]) # <em>вывод числа, в котором вторая цифра больше </em>