Складіть алгоритм і блок-схему обчислення значення виразу у= х^5

244

322

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

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

dimaburkovskiy3

Информатика

4,6(65 оценок)

Function check(k : longint) : boolean; var j : byte; begin check: =true; j: =k; while j> 0 do begin if (j mod 10 = 0) or (k mod (j mod 10)< > 0) then check: =false; j: =j div 10; end; end; var n,i : longint; begin readln(n); for i: =1 to n do if check(i) then writeln(i); end.