Регистрация
7773530
Есть ответ 👍

с немецким это первое задание заранее, а вот второе:Meine Wörter Welche Wörter, Ausdrücke oder Sätze sind für dich wichtig? Schreib auf.​

254
427
Посмотреть ответы 1

Ответы на вопрос:

mogilastaaalena
mogilastaaalena
4,8(13 оценок)

499  324

function F

(n: integer): integer;

begin

if n > 0 then

F:= n mod 10*F(n div 10)

else

F:= 1;

end;

var i:integer;

begin

for i:=1 to 1000 do

if F(i)>320 then

begin

write(i,'  ',F(i));

break

end

end.

Популярно: Немецкий язык