label nach;
uses crt;
var x,s:integer;
begin
s:=0;
repeat
nach:
write('vvedite x=');read(x);
if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;
until (x=0);
writeln('summa ravna=',s);
end.
Извини рисую я очень плохо думаю главное что б ты понял.
Эти числа (17 и 47) :
Простые ,
Нечётные ,
Вторая цифра 7 .
На первое место мы можем поставить любую из 5 букв, на второе, по условию оставшиеся из 4, но мы должны повторить эту букву еще раз, т.е. у нас будет всего 1 вариант для одного из слотов, ну и на оставшиеся 2 места мы можем поместить любую из 3х.
Таких перестановок можно сделать 3 штуки(сразу перемножим их):
5 4 1 3 3 = 180
5 4 3 1 3 = 180
5 4 3 3 1 = 180
отсюда ответ: 180*3 = 540